エクセル マクロ 修正

質問

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
ActiveSheet.Visible = False
Worksheets("月").Activate
End If
If Target.Address = "$C$2" Or Target.Address = "$C$3" Or Target.Address = "$C$4" _
Or Target.Address = "$C$5" Or Target.Address = "$C$6" Or Target.Address = "$C$7" _
Or Target.Address = "$C$8" Or Target.Address = "$C$9" Or Target.Address = "$C$10" _
Or Target.Address = "$C$11" Or Target.Address = "$C$12" Or Target.Address = "$C$13" _
Or Target.Address = "$C$14" Or Target.Address = "$C$15" Then
Worksheets(Target.Value).Visible = True
Worksheets(Target.Value).Select
Else
End If
End Sub

選択したら飛ぶようにしているのですが
例えばC１４の名前や飛ぶ先のシートを消した際に
エラーが出ます。
名前が違う場合やシートがない場合は選択しても
無反応にしたいのですが
どのようなプログラムを追加したらいいでしょうか？

回答No.1

kkkkkm · ベストアンサー

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Worksheet
Dim flag As Boolean

flag = False
For Each c In Worksheets
If c.Name = Target.Value Then flag = True
Next
If flag = False Then Exit Sub
以下現在のコード

でいかがですか。

お礼

ありがとうございます
出来ました