Sub ShowForm()
    Application.EnableCancelKey = xlDisabled
    UserForm1.Show
End Sub