Sub Routine()
  Command1.Value = True [color=green]' Button wird geklickt
  Command1.Tag = "run"
End Sub
 
Private Sub Command1_Click()
  If Command1.Tag = "run" Then Exit Sub
 
  [color=green]' restlicher Code
End Sub

Gruß
Marcus