ＶＢＡ

質問

いまエクセルでマクロを作っているのですが、単純にすべてのシートのなかにたとえば「報告書」という名前のシートが存在するかどうかを調べるのはどうすればよいのでしょうか？
よろしくお願いいたします。

回答No.1

mk227 · ベストアンサー

該当ブックの全てのシートに対してループでシート名をチェックします。
Function Exists() As Boolean
　Dim ws As Worksheet
　For Each ws In ActiveWorkbook.Sheets
　　If ws.Name = "報告書" Then
　　　Exists = True
　　　Exit Function
　　End If
　Next
　Exists = False
End Function
こんな感じです。

お礼

早速のご回答ありがとうございました。
すぐに試してみます！