Clearing a UserForm

[Giordano Bruno]

I have a UserForm called Menu. The first line of code behind the OK button says

Menu.Hide

When I run this using F8, it behaves itself and the menu disappears after the code line Menu.Hide. When I click the OK button to run it normally the menu stays on the screen partially hidden behind the next sub menu.

Does anyone have any idea what I may be doing wrong?

 

[blazonQC]

Maybe you could try this:

Sub HideMenuShowInput()
Dim test As String

   Menu.Hide

      Do While Menu.Visible
           DoEvents
      Loop

    test = InputBox("Whatever","Whatever","XXX")

End Sub

Note: Untested code.

I didn't test this, but it might work.

Chad