koşula göre istenilen hücre içeriğinin silinmesi

[hsyn17]

Merhaba Üstat,
a5 hücresinde, zamana bağlı olarak "sil" yazısı çıktığında, b5 hücre içeriği de OTOMATİK olarak silinsin. Böyle bir makro yazılabilir mi..
(a6 da "sil" yazarsa b6... a7 de yazarsa b7 hücre içeriğinin silinmesi...)
Şimdiden teşekkür

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
    If Target.Value = "Sil" Then Cells(Target.Row, 2) = Empty
End Sub