PROBLEM DISPLAYING USERFORM

Hi

i have a multi userform program it was fine now i cannot load one of my
forms (userform3) i get the following error message
'runtime error -2147352573 (80020003) could not find the specified
object.

I use this code to generate userform3 from userform1

Private Sub CommandButton4_Click()
Unload Me
Call SHOWCLEARS
End Sub

the userform1 unloads and calls showclears

Sub SHOWCLEARS()
Application.ScreenUpdating = False
Call counter
Application.ScreenUpdating = True
UserForm3.Show
End Sub

it debugs at the userform3.show line

the counter module above is

Sub counter()
Dim clears
Application.ScreenUpdating = False
Sheets("CLEARS").Select
Range("A3").Select
clears = 0
Do While Selection.Value <> ""
ActiveCell.Offset(1, 0).Activate
clears = clears + 1
Loop
Sheets("CODES").Select
Range("D2") = clears
Range("a1").Select
Sheets("menu").Select
Application.ScreenUpdating = True
End Sub

this counts the number of lines within the range that a listbox on
userform3 shows.

any help greatly recieved

john

have you tried hitting the reset button in the VBE?

Or closing Excel and reopening it?

--
Regards,
Tom Ogilvy

<john.9.williams@bt.com> wrote in message
news:1115636754.904919.51450@o13g2000cwo.googlegroups.com...
> Hi
>
> i have a multi userform program it was fine now i cannot load one of my
> forms (userform3) i get the following error message
> 'runtime error -2147352573 (80020003) could not find the specified
> object.
>
> I use this code to generate userform3 from userform1
>
> Private Sub CommandButton4_Click()
> Unload Me
> Call SHOWCLEARS
> End Sub
>
> the userform1 unloads and calls showclears
>
> Sub SHOWCLEARS()
> Application.ScreenUpdating = False
> Call counter
> Application.ScreenUpdating = True
> UserForm3.Show
> End Sub
>
> it debugs at the userform3.show line
>
> the counter module above is
>
> Sub counter()
> Dim clears
> Application.ScreenUpdating = False
> Sheets("CLEARS").Select
> Range("A3").Select
> clears = 0
> Do While Selection.Value <> ""
> ActiveCell.Offset(1, 0).Activate
> clears = clears + 1
> Loop
> Sheets("CODES").Select
> Range("D2") = clears
> Range("a1").Select
> Sheets("menu").Select
> Application.ScreenUpdating = True
> End Sub
>
> this counts the number of lines within the range that a listbox on
> userform3 shows.
>
> any help greatly recieved
>
> john
>