That is not too hard....

Public StartStopCode As Boolean

Private Sub Button_Click()

If StartStopCode = True Then
StartStopCode = False
Else: StartStopCode = True
End If

End Sub

Private Sub MyCode()
If StartStopCode = False Then

' Your code here

End If
End Su

--
Message posted from http://www.ExcelForum.com