In ThisWorbook module.
Private Sub Workbook_Open()
numclicks = 1
End Sub
In Standard module.
Public numclicks As Integer
Sub macro1()
MsgBox "Running macro1"
End Sub
Sub macro2()
MsgBox "Running macro2"
End Sub
Sub macro3()
MsgBox "Running macro3"
End Sub
Sub macro4()
MsgBox "Running macro4"
End Sub
Sub macro5()
MsgBox "Running macro5"
End Sub
In Sheet module (CommandButton code)
Private Sub CommandButton1_Click()
Select Case numclicks
Case 1
Call macro1
Case 2
Call macro2
Case 3
Call macro3
Case 4
Call macro4
Case 5
Call macro5
End Select
numclicks = numclicks + 1
If numclicks = 6 Then numclicks = 1
End Sub
Bookmarks