codice:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 100 Then Beep
End Sub
oppure

codice:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 100 Then Msgbox("Quello che ti pare")
End Sub
il primo emette il beep il secondo è un messaggio.

il tutto va inserito come vedi all'interno dell'editor di visual basisc
(premi ALT+F11)
poi clicchi sul foglio in cui vuoi controllare la cella e fai copia incolla
qui ti controllo la cella a1
ciao