Worksheet SelectionChange Error - Target.Address - if statement

[anish.ms]

Hi,

Could somebody please help me with the below
why the below if statement is not working?


If Target.Address <> "$D$7" Or Target.Address <> "$M$5" Or Target.Address <> "$M$6" Then Exit Sub
ShowCalendar
End Sub


Do I really need the following select statement?



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$D$7"
ShowCalendar
Case "$M$5"
ShowCalendar
Case "$M$6"
ShowCalendar
Case Else
Exit Sub
End Select
End Sub

[rollis13]

This would work:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$7" Or Target.Address = "$M$5" Or Target.Address = "$M$6" Then showcalendar
End Subor:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$7" And Target.Address <> "$M$5" And Target.Address <> "$M$6" Then Exit Sub
showcalendar
End Subor:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union(Range("$D$7"), Range("$M$5"), Range("$M$6"))) Is Nothing Then showcalendar
End Sub

[anish.ms]

thanks rollis

[rollis13]

Glad I was able to help :).

[jolivanes]

Or change what you had slightly

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$D$7", "$M$5", "$M$6"
ShowCalendar
Case Else
Exit Sub
End Select
End Sub

[anish.ms]

Thanks jolivanes (http://www.vbaexpress.com/forum/member.php?1993-jolivanes)