VBA（空白行の上の行まで入力されている内容をシート名としてシートを追加する方法について）

Question

前提・実現したいこと

支店シートのB9～（空白行前）までに入力してある支店コード名のシートを作成し、
シートのA2にその支店コードを入力させたいです。

発生している問題・エラーメッセージ

実行時エラー'1004':
この名前は既に使用されています。別の名前を入力してください。

＜黄色網掛け行＞
.Name = 支店コード.Value

該当のソースコード

VBAです

Dim 支店コード As Range
For Each 支店コード In Worksheets("支店").Range("B9", Cells(Rows.Count, 1).End(xlUp))
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 支店コード.Value
.Range("A2") = 支店コード.Value
End With
・
・
・
・
Next 支店コード

試したこと

非表示になっているシート（同一名）がないか確認しました。

補足情報（FW/ツールのバージョンなど）

B10,B9の拠点コード名のシートが作成されたあと、「原本(2)」シートが作成され、
記載のエラーとなりました。
B9,B10,B11・・・とシートが作成していくものと思っていましたが。。。
ちなみに今回は、B36までデータが入っていました。

Answer 1

下記の二ヶ所の間違いを修正すればどうでしょう。

For Each 支店コード In Worksheets("支店").Range("B9", Cells(Rows.Count, 1).End(xlUp))

Cells(Rows.Count, 1)はシートを指定していないので、アクティブなシートが対象になります。
Worksheets("支店")がアクティブな場合はいいですが、他がアクティブだとエラーになるので、シートを指定した方がいいでしょう。

For Each 支店コード In Worksheets("支店").Range("B9", Worksheets("支店").Cells(Rows.Count, 1).End(xlUp))

次に、Cells(Rows.Count, 1)だと1列目の最終行になります。
"B9"からデータなので、2列目の最終行を指定しないとだめでしょう。Cells(Rows.Count, 2)

Comments

[VVVVV]

早速有難うございます。
試してみます。

[VVVVV]

実は試してみたのですが、すべてのシートが正当に作成されたあとに
以下エラーとなってしまいました。
エラー 1004 「アプリケーション定義またはオブジェクト定義のエラーです。」
ただ、シートは作成できましたので、本当にありがとうございます。