Click a cell in a range to popup a calendar

[Rocky2013]

Hello,
The code is only insert day to A1, I like to click any cell from a range A1:A15,
then insert the selected day from the calendar to that cell.

Thanks

[Mumps1]

Try the attached file.

[Rocky2013]

Hi,
That works!

Thanks

[Mumps1]

You are very welcome.

[Rocky2013]

Hi,
I ran into problem when I try to add another popup calendar to N3:N4.

I try the followings ...
1. I change "A1:A15" to""A1:A15",N3:N4"
2. Add another line ... If Intersect(Target, Range("N3:N4")) Is Nothing Then Exit Sub
3. Copy entire code and paste, then change "A1:A15" to change "N3:N4"

I hope you can take another look.

Thanks

[Mumps1]

Try the attached.

[Rocky2013]

Thanks for taking another look, You are the best! Now I can go back
to spread sheet.

[Mumps1]

My pleasure.