Sub ki186()
For i = 1 To 300
On Error Resume Next
  Application.Dialogs(i).Show
  If Err = 1004 Then
  kesu = MsgBox("Application.Dialogs(" & i & ")は表示出来ません。")
        If kesu = 7 Then
             Exit For
        End If
  On Error GoTo 0
  Else
  kesu = MsgBox("Application.Dialogs(" & i & ")を表示しました。" & _
  Chr$(10) & "次を表示しますか？", 4, "組み込みダイアログ表示")
        If kesu = 7 Then
             Exit For
        End If
  End If
Next
On Error GoTo 0
End Sub