Thanks Ron

I will let you know if I have any problems

-----Original Message-----
Start here
http://www.rondebruin.nl/calendar.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Rob" wrote in
message ...
Mike,

I have got an open worksheet and on there I have
through
the form toolbar added a calendar 10.0

The calendar is sitting just where and is formatted
as I
would like too.

I have been trying to write this -

Private Sub Calendar1_AfterUpdate()

'Application.Worksheets("Daily").Range("C4").Value =
Calendar1.Value
Application.Worksheets("Daily").Range("C4").Value =
Calendar1.Value

End Sub

can you tell me where I am wrong?

- The sheet the calendar is on and the sheet I want the
output to is called "Daily"
- I want to click on any date and the cell C4 will
update
with the value selected on the calendar

Thanks

Rob


.