Button to stop macro

[NiklasNordkvist]

Hello!
I have one button for starting the macro but I also want a button to stop the macro for running completely.
I don´t know how to type this, hope someone can help me out:
Here is the code I have:

Sub TabShow()


Dim i As Integer

Dim Pause As Double


Pause = 5 'Pause delay in seconds

Loops = 1 'How many loops do you want to do


While Loops


For i = 1 To Worksheets.Count

If Worksheets(i).Visible Then 'Checks for Hidden worksheets and skips if hidden

Worksheets(i).Activate 'Select the next worksheet


x = Timer

While Timer - x < Pause 'This does the pausing

DoEvents: DoEvents

Wend

End If

Next i


Wend


End Sub

 

[offthelip]

try this: The button to stop it just needs to run "setstop"

Public Stopflag
Sub TabShow()
Dim i As Integer
Dim Pause As Double
Pause = 5 'Pause delay in seconds
Loops = 3 'How many loops do you want to do
Stopflag = False
For lps = 1 To Loops   ' Code Added
For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then 'Checks for Hidden worksheets and skips if hidden
Worksheets(i).Activate 'Select the next worksheet
x = Timer
While Timer - x < Pause 'This does the pausing

DoEvents: DoEvents
If Stopflag Then  ' Code Added
Exit Sub          ' Code Added
End If            ' Code Added
Wend

End If

Next i
Next lps          ' Code Added
End Sub

Sub setstop()
Stopflag = True
End Sub

 

[NiklasNordkvist]

try this: The button to stop it just needs to run "setstop"

Public Stopflag
Sub TabShow()
Dim i As Integer
Dim Pause As Double
Pause = 5 'Pause delay in seconds
Loops = 3 'How many loops do you want to do
Stopflag = False
For lps = 1 To Loops   ' Code Added
For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then 'Checks for Hidden worksheets and skips if hidden
Worksheets(i).Activate 'Select the next worksheet
x = Timer
While Timer - x < Pause 'This does the pausing

DoEvents: DoEvents
If Stopflag Then  ' Code Added
Exit Sub          ' Code Added
End If            ' Code Added
Wend

End If

Next i
Next lps          ' Code Added
End Sub

Sub setstop()
Stopflag = True
End Sub

Works perfectly! Thought it was harder to solve, thanks a lot!