Creo que potypoty se refiere a esto:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
'Definimos el rango para que se ejecute el Change (fila 1, y columna 1)
If Target.Row = 1 And Target.Column = 1 Then
If Range("a1").Value < 2 Then
MsgBox ("hola a todos")
End If
End If
End Sub