UserForm gaat niet weg

[ronald1986]

Mensen,

Ik heb binnen een macro een userform die direct zichtbaar wordt wanneer de macro start en pas weer weg moet gaan wanneer de macro klaar is. Ik gebruik onderstaande code:

Sub Test()
UserForm1.Show
Application.ScreenUpdating = False

If "blablabla" Then
Userform1.Hide
Application.ScreenUpdating = True
Exit Sub
End If

"Nog een paar handelingen......."

Application.ScreenUpdating = True
UserForm1.Hide

End Sub

Nou is het probleem dat het UserForm netjes tevoorschijn komt wanneer de macro start maar dat hij niet meer weg gaat wanneer de macro klaar is en ik hem dus met het kruisje moet afsluiten. Dit is zowieso zo wanneer er niet aan de eerste voorwaarde wordt voldaan, oftewel de macro dus helemaal afgemaakt moet worden. Weet iemand misschien hoe dit komt en hoe ik het eventueel kan oplossen?

Zie voorbeeld bestandje...
Bekijk bijlage test userform.xlsm

 

[mvw64]

Probeer het zo eens
Met de macro in de UserForm