実行時エラーについて（エクセル）教えてください

質問

ブック内の特定のシート（シート名"白"）がブック上に無いときにフォームのボタンをクリックしたときに
"白シートがありません"と表示させるにはどのようなマクロの記述をしたらよいのでしょうか？
ご教示願います。

回答No.2

ja7awu · ベストアンサー

まぁ、一般的には For Each で Worksheets をチェックするのですが、
簡単に　こんな感じで如何でしょうか。

Sub ボタン1_Click()
If Not TypeName(Application.Evaluate("'白'!A1")) = "Range" Then
　　MsgBox "「白」 というシート名は、ありません"
End If
End Sub

お礼

ありがとうございました。
ご回答いただいたアドバイスで、思い通りのモノができました。助かりました。

回答No.1

pkh4989

VBA なら以下を参考にしてください。

Sub Chk_Main()
If Chk_SheetName = False Then
MsgBox "白シートがありません"
End If
End Sub

Function Chk_SheetName() As Boolean
Dim wIx As Integer
Dim wCnt As Integer
wCnt = 0
Chk_SheetName = False
For Each wSheet In Workbooks("Book1").Worksheets 'ブック名は任意
If wSheet.Name = "白" Then
Chk_SheetName = True
Exit For
End If
Next
End Function

お礼

ありがとうございました。
ご回答いただいたアドバイスで、思い通りのモノができました。助かりました。