Makro momentan stoppen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 11 And Target.Column >= 4 Then
If Selection.Columns.Count > 1 Then
ActiveCell.Select
MsgBox ("Auswahl nur aus einer Spalte, bzw. einem Tag möglisch!")
End If
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Visible = False
Next cmt
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
End If
End If
End Sub

Jetzt möchte ich periodisch die Tabelle leeren und neu formatieren. Wie kann ich ich meine Einschränkung momentan ein dem neuen Makro ausschalten?
Danke für die Hilfe
Serge