Hi there,
Does anyone have any idea why the following code doesn't work?
Sub Macro4()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Static i As Long
For i = 1 To 10
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.IncrementLeft -20
Application.Wait waitTime
Next i
End Sub
Does anyone have any idea why the following code doesn't work?
Sub Macro4()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Static i As Long
For i = 1 To 10
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.IncrementLeft -20
Application.Wait waitTime
Next i
End Sub