Worksheet event to run macro when cell changes

Hi All,

I would like to aks whether someone can help me with the below.

I m trying ot have a worksheet event trigger when a certain value changes. So if the value in cell D5 changes, a worksheet event calls a macro.

For a strange reason the macro is not being called when the value changes.

Can someone please help me out.

Appreciate a lot your help!

For ease of reference I have attached the file.

Option Explicit



 

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="k"
    If Target.Address(0, 0) = "d5" Then
       Call Allbalance
   
    End If
ActiveSheet.Protect Password:="k"
End Sub

Thanks


Keibri