TEST 333

[הנהלת הפורומים]

TEST 333

public ChangeSheet

Sub Micky()
    ChangeSheet = Now + TimeValue("00:00:03")
    Application.OnTime ChangeSheet, "Micky"
    Sheets("Sheet" & Application.RandBetween(1, 3)).Activate
End Sub

Sub StopMe()
    Application.OnTime ChangeSheet, "Micky", schedule:=False
End Sub