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