I'm trying to insert a calendar in Excel and after I coded the following code, I keep getting the error.

Sub OpenCalendar()
frmCalendar.Show
End Sub

which is in the PERSONAL.XLS - Module1(Code) with the drop down menu are
(General) & OpenCalendar

any ideals how to fix?

thanks...

E.Z.