ＩＦ文の分岐が機能していない？

質問

初めて投稿させて頂きます。宜しくお願いします。
　殆どＶＢＡ初心者です。

　特定のセルに入力すると、シート名を固定のセル（Ｓ１２）の文字列に変更するコードを書きました。
　（Ｓ１２は他のセルからの参照値を結合したものです。
　　Ｂ２”受注”＋Ｐ２”５月”＝Ｓ１２”受注５月”がシート名に入ります）

ネット検索で参照エラーやシート名の重複エラーを調べて自力で組みましたが、どこかがおかしいようでちゃんと機能していません。

(1)新しいシート名ならばエラーは出ず、シート名の変更が出来る
(2)Ｓ１２がエラー値であれば、シート名は変更されない

これは狙い通りなのですが、

(3)重複シート名の場合、（２）を付けて変更する（これはエラーでマクロが止まります）
(4)同じシートを何度か名前変更した時に、下のタグに無い名前も重複シートとして認識される

この、(3)と(4)でマクロが止まり困っています。
(3)は重複でなければどのような処理でも問題ありません。(4)は(3)がクリア出来れば、あまり弊害はありませんがクリアできたら幸いです。

下記コードのどこが間違っているのか、教えて頂けませんでしょうか？

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim flag As Boolean, s As Variant

If Intersect(Target, Range("B2:P2")) Is Nothing Then

Exit Sub

Else

For Each s In Sheets

If IsError(ActiveSheet.Range("S12").Value) Then

Exit Sub

Else

If s.Name = ActiveSheet.Range("S12").Value Then

Sh.Name = ActiveSheet.Range("S12").Value ＋"(2)"

Exit Sub

Else

Sh.Name = ActiveSheet.Range("S12").Value

Exit Sub

End If

End If

Next s

End If

End Sub

回答No.1

bin-chan

最初のIF文
> If Intersect(Target, Range("B2:P2")) Is Nothing Then
でF9キー押下してブレークポイント作成し、F8押下でステップ実行。

気になる変数にマウスカーソル当てれば、値をみることができるし、
いざとなったらイミディエイトで値設定（変更）も可能です。

お礼

迅速なご回答ありがとうございました。
教えて頂いた手順でチェックしたところ、コードの穴を発見することができました。
（一番問題だったのは、変数ｓの宣言をWorksheetにしていなかったので、ブック名が
　ｓに代入されていた所でした）

コードを組むときによりすっきりした実行手順も見えるようになったので、今後、
自力でマクロを作成する時に活用していきたいと思います。
大変勉強になりました。適切なご指導を頂きありがとうございました。