Add to worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
'add code here or call macro
'change $B$1 to suit
End if
End Sub

Hth,
Merjet