if intersect else intersect

[hwkeyser]

Hi all,

I'm looking for help on a "Worksheet_SelectionChange(byVal Target As Range)"

What i think i want to do is something along the lines of

If intersect "G30,P30" then
Module4.opencalendar

Else if interesct "Z30,AI30" Then
Module5.opentime


Now naturally that doesn't work but it's something like that. 4 cells on same worksheet producing 2 different userforms.

I'm completely open to suggestions and ideas. i already have the .opencalendar working by itself as:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("G30,P30")) Is Nothing Then
        Module4.OpenCalendar
    End If
End Sub

Help! Thanks,

HK

 

[shg]

One way:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address(False, False)
        Case "G30", "P30"
            OpenCalendar
        Case "Z30", "AI30"
            OpenTime
    End Select
End Sub

 

[hwkeyser]

When I dropped that code in, it doesn't appear to do anything on the worksheet, and when i try to run it from the worksheet code, it prompts me which macro to run. I've been here before so it tries to apply one macro to both and neither for the other