Ausführen einer VBA Anweisung wenn in der Zelle C1 Wahr steht

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Address = "$A$1" Or Target.Address = "$B$1") And Range("C1") = True Then Call MakroName  
End Sub

Sub MakroName()
    MsgBox "Test"  
End Sub

Option Explicit

Const SpalteF = 6       'Spalte F  
Const SpalteG = 7       'Spalte G  
Const ZeilenB = 1       'Zeilen Begin  
Const ZeilenE = 25      'Zeilen Ende  

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> SpalteG Or .Row < ZeilenB Or .Row > ZeilenE Or IsNull(.Text) = True Then Exit Sub
        If IsDate(Cells(.Row, SpalteF)) = True And Cells(.Row, SpalteG).Text <> "" Then  
            Call TestMakro(Cells(.Row, SpalteF), Cells(.Row, SpalteG))
        End If
    End With
End Sub

Sub TestMakro(ByRef Datum, ByRef Text)
    MsgBox "Datum: " & Datum & "  Text: " & Text  
End Sub

Sub Termin(ByRef Datum, ByRef Text)
    
    'OutApp As Outlook.Application  
    Dim OutApp As Object, apptOutApp As Object, Nachricht As Object
    
    Set OutApp = CreateObject("Outlook.Application")  
    Set Nachricht = OutApp.CreateItem(0)
    
    With Nachricht
        .to = "xxx@xx.de"  
        .Subject = "Erinnerung für Angebot"  
        .Body = "Bitte rufen Sie beim Auftraggeber an wie weit der Bearbeitungsstand des Angebotes ist." & "Termin: " & Datum & " Bauvorhaben: " & Text  
        .Send
    End With
    
    Set OutApp = Nothing
    Set Nachricht = Nothing
    Set OutApp = CreateObject("Outlook.Application")  
    Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem  
    
    With apptOutApp
        'Datum aus Spalte F  
        .Start = Format(Datum, "dd.mm.yyyy") & " 06:00"  
        'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen  
        'Betreff aus Spalte G  
        .Subject = Text
        'Zusätzlicher Text  
        .Body = ""  
        'ort13-  
        .Location = ""  
        .Duration = "5"  
        'Erinnerung  
        .ReminderMinutesBeforeStart = 60
        'Erinnerung wiederholen  
        .ReminderSet = True
        'Termin speichern  
        .Save
    End With
    
    Set apptOutApp = Nothing
    Set OutApp = Nothing
    
    MsgBox "Termin an Outlook übertragen!"  
End Sub