repeatinng a macro the number of times specified in a cell

[snipescc]

I have a macro that calculates a sheet, waits 1 second, then does it again. After 12 seconds, it switches to the next sheet and does the same thing. I'd like the macro to run certain number of times, based on the value of a cell that the end user inputs into a box. I've minimal experience with writting VBA, so I'd appreciate some help. Here is my code (without the repeats every second, I can fix that once I've gotten the looping working)

Sub TreeTwinkle()
'
' TreeTwinkle Macro
'
Dim myValue As Integer
myValue = InputBox("How many minutes should this run?")
Range("da1").Value = myValue


ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Menorah").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Cresant").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Snowflake").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Khanda").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Tree").Select
ActiveSheet.Calculate


End Sub

 

[yosegmail]

gh

 

[rmac1954]

I'm a rookie as well, but I think this will work.

Sub TreeTwinkle()
'
' TreeTwinkle Macro
'
Dim myValue As Integer
myValue = InputBox("How many minutes should this run?")


Do While Not IsEmpty(myValue)
If myValue = 0 Then GoTo jmp1
    myValue = myValue - 1


ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Menorah").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Cresant").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Snowflake").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Khanda").Select
ActiveSheet.Calculate
Application.Wait Now + #12:00:01 AM#
Sheets("Tree").Select
ActiveSheet.Calculate
Loop


jmp1:


End Sub

RobMac