Sub ShowDialog() UserForm1.Show End Sub