VBA code - Userform not to close

Hi All

How do I get my userform to remain open when the following macro runs:

Sub InvNoGen()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheet4.Visible = True
Sheet4.Activate
Workbooks.Open ("C:\Users\Steven\Desktop\FDP\No generator.xlsm")
Worksheets("No Generator").Activate
ThisWorkbook.Save
ThisWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub