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

Ive worked with hundreds of different UserForms before; I cant figure it
out. Could the UserForm somehow get corrupted? This is the second time that
Ive 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
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
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

Ive worked with hundreds of different UserForms before; I cant figure it
out. Could the UserForm somehow get corrupted? This is the second time that
Ive 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