A single Calendar macro that can populate multiple cells?

Hello, Programmers!

I created a UserForm calendar whose default behavior is to put the date you
select in the active cell.

I made a calendar icon, assigned it the OpenCalendar macro, made copies and positioned the icons approximately in cells C4, C6, C25 and C27.

The code behind the UserForm is this:

Please Login or Register  to view this content.

I need each calendar instead to populate B4, B6, B25 and B27, respectively.

So I changed ActiveCell.Value to Range("B4").Value, but off course that
means all 4 icons now change only B4. I figured I could look at the cell the icon was in and move 1 to the left, but the icon has no address. Or does it?

If someone could enlighten me on how to make each calendar running off the same macro put a date in its respective B cell, I would appreciate it greatly.

I thank you for your time.

Arlen