Not sure about the "object not found error", but this is what I use to
display the Calendar Control:

Option Explicit
Sub ShowCalendar()
Dim newDate As String
Load frmCal

newDate = Format(Now(), "mm/dd/yyyy")

frmCal.Calendar1.Value = newDate
frmCal.Show
End Sub

I hope that helps.
--
Regards,
Ron