Office: VBA Schrift durchstreichen in der Nachbarzelle

Hallo Excel Profis
ich habe ein neues Problem.
In der Column "E" stehen Termine, wenn einer entfällt schreibe ich das in diese Zelle mit rein. Dann möchte ich die Schrift durch gestrichen haben. Für die Betreffende Zelle in Column "E" gelingt mir das auch per VBA(Code angehängt). Jetzt möchte ich in den Columns "B - C - D" auch die Schrift in der entsprechenden Zeile gestrichen haben. Leider fällt mir kein Code ein.
Bedingte Formartierung geht nicht, da ich diese für andere Dinge verwende.

Code:

Sub Entfällt_streichen()
'Die Schrift wird durchgestrichen wenn Termin ENTFÄLLT!!!
Dim Zelle As Range
Dim Bereich As Range
On Error Resume Next

Set Bereich = Worksheets("Terminkalender").Range("E10:E70")
For Each Zelle In Bereich
If Right(Zelle, 3) = "!!!" Then
Zelle.Font.Strikethrough = True
Else
Zelle.Font.Strikethrough = False
End If
Next Zelle
Set Bereich = Nothing
Set Zelle = Nothing

End Sub

Vielen Dank Gruß Norbert

 

Hallo Nick

Range(Zelle.offset(0,-1),zelle.offset(0,-3)).Font.Strikethrough

Gruß Hajo

 

Hallo Hajo
ich wußte das der Code gar nicht so kompliziert ist, aber ich bin noch am anfang es Lernprozesses.
Vielen Dank für deine Hilfe.
Gruß Norbert