Dear FSt1,
Unfortunatley, the author of the form cannot be reached. The Month is not
viewing correctly in the form. Here is the macro that has been written. Do
you need more info?
Private mChoice As Variant 'Holds the choice of the user

Private Sub BCancel_Click()
mChoice = False 'User cancelled
Me.Hide
End Sub

Private Sub Calendar2_Click()
mChoice = Calendar2.Value
Me.Hide
End Sub

Public Sub Display(ByVal Target As Range)
'Make sure that we received only one cell
Set Target = Target(1)

If IsDate(Target.Value) Then
mChoice = Target.Value
Else
mChoice = Date
End If
Calendar1.Value = CDate(mChoice)
Me.Show
End Sub

Public Property Get GetChoice() As Variant
GetChoice = mChoice
End Property

Private Sub Calendar1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Any ideas how I can fix this so the months of the year are showing through
properly? Currently I have 12 January's showing.

"FSt1" wrote:

hi
see someone. (the someone you got the calendar from)

If someone is not available, supply more info.

Regards
FSt1

"Peggy" wrote:

I have copied a great pop up calendar from someone else and have got the pop
up calendar to work. However, the months and dates do not appear correctly.
Please could you tell me where I need to look to check this information.

Many thanks,
Peggy