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