Private Sub Workbook_Open()

    Application.ScreenUpdating = False
    Application.WindowState = xlMinimized

    UserForm1.Show vbModeless

End Sub