I'm using Martin Green's frmCalendar form in Excel 03. The way it works, if
you click the calendar icon and select a date - the date will be inserted
into the cell that happens to be selected at the time. I want the date to go
into a specified cell - meaning, it doesn't matter what cells is selected
when the calendar form is opened and a date selected.

I was able to make this work by defining the cell in the VBA. However, I use
the calendar code on more than one worksheet. I need to do an if visible or
if enabled statement before the calendar code fires.

This is what I'm using now:

If IsDate(Worksheets("Shift Sheet").Cells(6, 6).Value) Then
Calendar1.Value = DateValue(Worksheets("Shift Sheet").Cells(6,
6).Value)
Else
Calendar1.Value = Date
End If


I want to insert something in front of this that says:

If Worksheet "2nd Shift Regular" is Visible or Enabled run above code Else
if Worksheet "2nd Shift Overtime is Visible or Enabled run above code.

Any help would be greatly appreciated.

Regards,
Jason