ＶＢＡ 存在しないシートを選択した時にエラーメッセージを表示するには？

質問

マクロのコードに
Sheets("AAA").Select
と記述していますが、あるブックに対しマクロを実行したとき、AAAというシートがないときは、AAAというシートがないというダイアログを表示したいのですが、そのようなことが出来ますか？

存在しないシートを選択した時にエラーメッセージを表示するには？

回答No.2

Samurai-Jack · ベストアンサー

簡単なところでは、以下のようなのはどうでしょうか？ERR=9はインデックスが範囲外の時のものですので、シートがない以外でも発生しますが、とりあえずはいいのではないでしょうか。

sub XXX
On Error GoTo err_handle

Sheets("AAA").Select
Exit Sub

err_handle:
If Err = 9 Then
MsgBox "シートAAAが存在しません。"
Exit Sub
End If
End Sub

お礼

回答ありがとうございます。
うまくいきました。

回答No.1

hana-hana3

Sub sample()

FLG = False

'ブックのシート名を全部読みとる事ができます。
For Each sht In ActiveWorkbook.Sheets
　　If sht.Name = "AAA" Then FLG = True
Next

If FLG = False Then MsgBox "シートが無いよ！"

End Sub

他には、シートが無い場合だと、該当部分でエラーになるので、On ErrGoto 文で処理するかですね。

お礼

回答ありがとうございます。

うまくいきました。