Code in Blatt nach Blattkopie deaktivieren

Private Sub Worksheet_Change(ByVal Target As Range)
If programm_modus(1) = "an" Then
End Sub

Diese Code greift auf übergeordnet definierte Variablen zurück (Programmsteuerung, Position der Einträge,...)
Nachdem ich das Blatt kopiert habe, beschwert sich VBA:
Fehler beim Kompilieren:
Sub oder Funktion nicht gefunden.
über eine übergreifend definierte Variable programm_modus(1) .
Wie kann ich diese Fehlermeldung ausschließen/deaktiveren/.. ?
Mit Hoffnung auf Antwort
Martin