VBA Excel de tuşa basıldığını algılatma ve işlem yapma

Bir hücrenin değişimini algılayıp ona göre tepki verilmesi için gerekli kod örneği

Private Sub Worksheet_Change(ByVal Target As Range)
'    MsgBox (Target.Address)
    If (Target.Address = "$B$5") And ([b5].Value = "") Then
    [d5].Value = ""
    End If
    
    If (Target.Address = "$B$5") And ([b5].Value <> "") Then
    FirmaKodSorgu
    End If
End Sub