エクセル マクロ 追加したいのですが・・

質問

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$A$3" Or Target.Address = "$A$5" _
Or Target.Address = "$A$6" Or Target.Address = "$A$8" Or Target.Address = "$A$9" _
Or Target.Address = "$A$11" Or Target.Address = "$A$12" Or Target.Address = "$A$13" Then
Worksheets(Target.Value).Visible = True
Worksheets(Target.Value).Select
Else
End If
End Sub

これで選択するとシートに飛ぶようにしているのですが
記載がまだのところもあり、空白の時
押してしまうとエラーが出てしまいます
空白の時は反応しないようにしたいのですが
どうすればいいでしょうか？

回答No.1

kkkkkm · ベストアンサー

If Target.Value = "" Then
Exit Sub
End If
を一番最初に入れてください。

お礼

追加するだけでいけました
ありがとうございます

回答No.2

chie65536（@chie65535）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Target) And _
Target.Value <> "" And _
Target.Column = 1 And _
Target.Row >= 2 And _
Target.Row <= 13 And _
Target.Row <> 4 And _
Target.Row <= 7 And _
Target.Row <= 10 Then
Worksheets(Target.Value).Visible = True
Worksheets(Target.Value).Select
' Else 不要なので削除
End If
End Sub