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:

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

I need each calendar 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 populate B4. I figured you 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 put a date in its
respective B cell, I would appreciate it greatly.

I thank you for your time.

Arlen