VBAでユーザーフォームの表示を確認

ExcelVBA

Visible で判断

If (UserForm1.Visible = True) Then
'表示されている
Else
'表示されていない
End If

ネタ元