If not Intersect(Target,Range("E11,H11,.........)) is nothing then

[pincivma]

Hi there

This should be an easy solve but I'm getting errors.

Here is a partial code that I got from the internet

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11,H11,E482,H482,E953,H953.....")) Is Nothing Then 'Change this to any cell (or cells) you would like to have the Pop-Up Calendar Appear
CheckForSheet
CalendarShow
Else:
CheckForSheet
CalendarHide
End If
End Sub

I have over 200 cells in the If Not Intersect(Target, Range("E11,H11,E482,H482,E953,H953........")) Is Nothing code. My question is this: I can put all the 200 plus cells in the Range("E11,H11,E482,H482,E953,H953........") but then it would be a very, very long line. Is there way to go on a second and third or fourth line so that I could not loose track of all the cells I have to put in?

Thanks

 

[Norie]

Is there any other way to identify which rows you want the calendar to pop up for?

For example, in the same row is there a particular value?

e.g. in each row you want the calendar to pop in there's the word 'CALENDAR' in column A?

If there was something like that you could use something like this:

If (Target.Column = 5 Or Target.Column = 8) And Cells(Target.Row, "A").Value = "CALENDAR" Then
    CheckForSheet
    CalendarShow
Else
    CheckForSheet
    CalendarHide
End If

 

[pincivma]

Hi Nori

I guess I can put the word Calendar in Column A where I want to calendars to appear and see if that works.
Thanks for the suggestion

 

[pincivma]

Hi Nori, Rory

I did have an identifier in column D called START DATE. I put that into your code and it worked like a charm.

Thank you Nori and Rory for all your help on solving this problem.