Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("a1").Value < 2 Then MsgBox ("hola a todos") End If End Sub