Monitorear una celda

De nuevo muchas gracias, pero no he podido hacerlo, en la hoja de excel cambian muchas celdas muy consatantemente pero solo una me importa y a la vez solo cuando esa celda tiene un valor especifico ("1") porque ese "1" es clave para poder ejecutar otra función y no he podido, te anexo mi código para que lo revises y me digas que es lo que pasa por favor
esa función de Worksheet_Change la coloque en la hoja respectiva donde las celdas cambian, y la función a la que llama cuando ocurre lo que necesito lo puse en un modulo.
Este fue el código :
Sub Worksheet_Change(ByVal Target As Range)
Dim cont As Integer
'MsgBox "hOLA" + Target.Address
Application.EnableEvents = False
'MsgBox "hOLA" + Target.Address
'cont = 0
While cont = 0
If Target.Address = Range("VB_Trigger").Address Then
'MsgBox "hOLA" + Target.Address
If Target.Value = 1 Then
cont = 1
Call CALIBRACION
End If
End If
Wend
Application.EnableEvents = False
End Sub
Le puse el while para que solo me lo ejecute cuando cambie la celda de interés que es VB_Trigger, de resto no.
intente colocandole: Application.EnableEvents = true , y Application.EnableEvents = false y nada. Te lo mande con esto pero igual lo hice sin eso y no me ejecuta la funcion calibracion.
Ayudame por favoy o he intentado de mil formas.
Gracias