VBA（マクロ初心者）シート名の重複エラーの回避

質問

マクロ初心者です。
test.xlsmというファイルにて
マクロを編集し、
　ActiveSheet.Name = "コーヒー当番表"
で、シート名に名前を"コーヒー当番表"とつけています。
しかし、test_2.xlsというファイルでシート名に既に
"コーヒー当番表"と名前がつけられていた場合、

test.xlsmとtest_2.xlsを開いた状態で、
test.xlsmのマクロを実行すると
シート名の重複のせいか、実行エラーしてしまいます。

回避するためには、どのようなコードを記述したら良いでしょうか。
御助言ください。

回答No.4

utun01

マクロの内容が分からないとなんとも言えない感じですが、
test_2.xlsのシートをtest.xlsmにコピーしているのではないでしょうか？

もしこういった操作が途中に入っている様でしたら、
test_2.xls内でシートを別名で複製し、
複製した方をtest.xlsmに移動させるようにすれば解決するかもしれません。

回答No.3

imogasi

＃２でおっしゃてるように、私も質問がおかしいと思います。
Aブック
Bブック
があって、何かの業務上の関連がある場合、
（１）Bブックでは、Aブックのシート名と同じシート名は使いたくない
のか
（２）Aブック（やBブック）の中では、同じシート名は避けたい。
同じシート名を指定すると、実行したときにエラーになり、VBAコードでエラーが出て止まるのだが、止めない手当てをして、別のシート名を指定して、実行を続けたい
のが
（３）その他
なのか、はっきりして、再（別）質問のこと。
読者が普通なら、どう考えるかとか、想像が必要だ。よくあるケースではないなら、よくあるケースではないことを注記して質問するものだ。
ーー
エクセルのバージョンも注記のこと。２００７以後形式と２００３までの形式のファイルと混合している（両者を１つの実行VBAで扱っている）のか？

回答No.2

o_chi_chi

回避策ではないですが、

ブックが違うとシート名重複にはならないと思います。

もっと違うところに原因があるのでは。

回答No.1

nda23

エラーがでても処理を続けるにはエラーハンドリング
という技法を使います。
On Error GoTo ラベル
または
On Error Resume Next
という構文です。

サンプル
On Error Resume Next
ActiveSheet.Name = "コーヒー当番表"
If Err.Number Then
　　　MsgBox "既に表が存在します"
　　　ThisWorkbook.Worksheets("コーヒー当番表").Select
End If
On Error GoTo 0

On Error GoTo 0 はエラーハンドリングを
終了させるステートメントです。
Errオブジェクトはエラーの内容を持つもので、
Numberプロパティはエラーコードです。
これが0なら正常、0以外はエラーです。
If Err.Number <> vbNormal Then としても
OKです。(vbNormalは0)
古い習慣で0は偽、0以外は真なので、
サンプルのように「 <> 0 」を書かなくても
0以外ならThen節に制御が移ります。