I keep getting an error on a UserForm, named UserForm1. Microsoft Forms 2.0
is checked off as a Reference. The code is extremely simple:
Sub OpApp()
ActiveWindow.WindowState = xlMinimized
UserForm1.Show
End Sub

It keeps failing on this line:
UserForm1.Show

I’ve worked with hundreds of different UserForms before; I can’t figure it
out. Could the UserForm somehow get corrupted? This is the second time that
I’ve tried this; with a fresh UserForm. What could cause this kind of
behavior?

All code behind UserForm is commented out...
'Private Sub cmdNewPT_Click()
'Dim C As MSForms.Control
'For Each C In Me.Controls
'If TypeOf C Is MSForms.TextBox Then
'C.Text = ""
'End If
'Next C
'End Sub

Any thoughts?

Thanks,
Ryan---

--
RyGuy

Sub OpApp()
ActiveWindow.WindowState = xlMinimized
UserForm1.Show
End Sub

worked for me.....................
sorry!
susan


On Dec 12, 12:23*pm, ryguy7272 <ryguy7...@discussions.microsoft.com>
wrote:
> I keep getting an error on a UserForm, named UserForm1. *Microsoft Forms 2.0
> is checked off as a Reference. *The code is extremely simple:
> Sub OpApp()
> ActiveWindow.WindowState = xlMinimized
> UserForm1.Show
> End Sub
>
> It keeps failing on this line:
> UserForm1.Show
>
> I’ve worked with hundreds of different UserForms before; I can’t figure it
> out. *Could the UserForm somehow get corrupted? *This is the second time that
> I’ve tried this; with a fresh UserForm. *What could cause this kind of
> behavior?
>
> All code behind UserForm is commented out...
> 'Private Sub cmdNewPT_Click()
> 'Dim C As MSForms.Control
> 'For Each C In Me.Controls
> 'If TypeOf C Is MSForms.TextBox Then
> 'C.Text = ""
> 'End If
> 'Next C
> 'End Sub
>
> Any thoughts?
>
> Thanks,
> Ryan---
>
> --
> RyGuy

Thanks for confirming Susan. I banged my head against the wall multiple
times. Then, I restarted my computer. Now it works fine! It must have been
the head banging that made it work...

--
RyGuy


"Susan" wrote:

> Sub OpApp()
> ActiveWindow.WindowState = xlMinimized
> UserForm1.Show
> End Sub
>
> worked for me.....................
> sorry!
> susan
>
>
> On Dec 12, 12:23 pm, ryguy7272 <ryguy7...@discussions.microsoft.com>
> wrote:
> > I keep getting an error on a UserForm, named UserForm1. Microsoft Forms 2.0
> > is checked off as a Reference. The code is extremely simple:
> > Sub OpApp()
> > ActiveWindow.WindowState = xlMinimized
> > UserForm1.Show
> > End Sub
> >
> > It keeps failing on this line:
> > UserForm1.Show
> >
> > I’ve worked with hundreds of different UserForms before; I can’t figure it
> > out. Could the UserForm somehow get corrupted? This is the second time that
> > I’ve tried this; with a fresh UserForm. What could cause this kind of
> > behavior?
> >
> > All code behind UserForm is commented out...
> > 'Private Sub cmdNewPT_Click()
> > 'Dim C As MSForms.Control
> > 'For Each C In Me.Controls
> > 'If TypeOf C Is MSForms.TextBox Then
> > 'C.Text = ""
> > 'End If
> > 'Next C
> > 'End Sub
> >
> > Any thoughts?
> >
> > Thanks,
> > Ryan---
> >
> > --
> > RyGuy
>
>