Add Pop Up Calendar to Multiple Columns with VBA

[greatwent]

(please be gentle, I'm a total noob)
I have found this code that seems to work with popping up a Calendar when I click anywhere in Col. 3.
But I would also like the Calendar to pop up when I select Col. 8 and Col. 10 as well as Col. 3.

Please Login or Register  to view this content.

I have seen something about inserting this,
Replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

etc.. for multiple columns....
but I can't seem to make it work.
Any suggestions?

[Spritz]

Hi greatwent,

try the following replacement

Please Login or Register  to view this content.

[greatwent]

I get a Compile error: Block If without End If

[Spritz]

Oops need to add an end if at the end of that first statement

Please Login or Register  to view this content.

[greatwent]

Thanks Spritz, that seems to work.

[Spritz]

No Problem :D

I've had a lot of great help from people here and it's good to share the knowledge!

Have a great weekend!

[greatwent]

Hey Spritz, or anyone else for that matter....how can I have the calendars show when I click in one of those above mentioned columns when I am 80 rows down? Right now, the calendar pops up in a 'locked' location at the top of the sheet. Is there a way to have it 'float' or appear next to the cell I click?

[greatwent]

I'm a dummy...somehow the calendar got resized and shrunk to nothing...I was able to find the grips and stretch it out bigger again...all is working...except my brain. Time for a drink. Thanks