form wont show?

[FStone]

greeting all,
I have a user form which i would like to pop up when
a button is clicked. I have the button on the sheet.
I am using the following code.

Private Sub CmdShowCal_Click()
CalForm.Show 0
AppActivate Application.Caption
End Sub

When i click the button, i get a runtime error...
Run-time error '-2147024809(80070057)
Could not find the specified object

odd thing is that it was working. I was modifing some
code in the form (not the CmdShowCal code) and when
i saved the file to retain changes, the runtime error
started poping up instead of the form.
The modification i did was to add 2 dim to 1 private sub
in preperation for adding more code.

Does anyone have some idea what is wrong?
thanks in advance to anyone who can help.

 

[Tom Ogilvy]

I you remove the added code, does it work?

if not, you might try using Rob Bovey's free code cleaner utility

http://www.appspro.com go to free downloads.

 

[FStone]

I did reverse what code changes i made and that did not
work. that is why i posted to newsgroups. I will look into
rob's site. thanks tom.

 

[Guest]

rob's code cleaner didn't work either. I guess a full re-
install would be the next option. any guesses anyone.

 

[Tom Ogilvy]

Your workbook may be getting corrupted. Perhaps copying everthing to a new
workbook. (export all you code and forms and import into the new workbook,
copy pages over, etc.