Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$1" Then
Application.EnableEvents = False
If Target.Value = yes Then
Msgbox ("B1 = Yes")
Application.EnableEvents = True
End I
--
Loss
-----------------------------------------------------------------------
Losse's Profile:
http://www.excelforum.com/member.php...fo&userid=2481
View this thread:
http://www.excelforum.com/showthread.php?threadid=38713