Sub ki059()
  Application.Visible = False
     UserForm2.Show
End Sub

Sub ki059a()
Application.WindowState = xlMinimized
AppActivate "microsoft excel"

     UserForm2.Show
End Sub