you could just use the calendar control to add dates to your worksheet.
Have a look at Ron de Bruin's site for more info.
http://www.rondebruin.nl/calendar.htm
--
jb


" wrote:

Hi, I am having some trouble getting the date from the pop-up calendar
to populate into my worksheet.

Sheet1 contains this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'This subroutine will pop-up the calendar when the cell is selected by
mouse, tab, enter or arrow keys
If Target.Address = "$B$9" Then
Call OpenCalendar
Range("B9").Value = frmCalendar.Value
ElseIf Target.Address = "$B$12" Then
Call OpenCalendar
Range("B12").Value = frmCalendar.Value
End If
End Sub

I get "Method or data member not found" on the line above starting
with Range ("B9")

The forms module contains a user form named frmCalendar (no code, just
the calendar form)

Module1 contains this code:

Sub OpenCalendar()
frmCalendar.Show
End Sub

Any help getting the calendar date into my worksheet would be
appreciated.

Also I would like to be able to control where the calendar pop-ups on
the worksheet. Can that be done?

Thanks,
Mike