エクセルVBA シート名を枝番付連番に変更する方法を教えて

超VBA初心者です
3シートをコピーして、名前を枝番付連番に変更したいです

最初から"見積1-1"　"見積1-2"　"見積1-3"　というシート名で3シートあります
こちらは3枚で1セットとして使用
この最初からある3シートをコピーして、
"見積2-1"　"見積2-2"　"見積2-3"、
"見積3-1"　"見積3-2"　"見積3-3"、
　　　　　　　 ・
　　　　　　　 ・
　　　　　　　 ・
といった感じで増やしていきたいのですが
名前の変更方法がわかりません

n = Worksheets.Count
For i = (n - 2) To n
Worksheets(i).Copy after:=Worksheets(Worksheets.Count)
Next

↑これでいいのか不明ですが、なんとか3シートはコピーして追加できました

名前の変更方法をどうか教えてください
お願いいたします

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/06/08 15:31

こんにちは、

n = Worksheets.Count
j = 1
For i = (n - 2) To n
Worksheets(i).Copy after:=Worksheets(Worksheets.Count)
nr = (n + 3) / 3
ActiveSheet.Name = "見積" & nr & "-" & j
j = j + 1
Next
みたいな感じでしょうか、しかし、このブックどうなるのでしょう？
見積って、年間どのくらい発行するのでしょう？
見積の内容をデータとして1シートに纏めるようなことも出来ますし、
外部にデータとして保存することも出来ると思いますので、余計なおせっかいかもしれませんが、
設計を考え直した方が良いと思いますよ。

この回答へのお礼

こんにちは
ご回答ありがとうございます
完璧です！
助言もありがとうございます
こちらの見積りは1ブック平均が5セットと少数ですが便利になるよう日日考えていきたいです

お礼日時：2020/06/08 16:20

No.1 回答者： めぐみん_ 回答日時： 2020/06/08 15:00

この場合って『何回繰り返したいのかをどのように値を与えるか？』だと初級者は思います。

この回答へのお礼

ご回答ありがとうございます
む、難しいです

お礼日時：2020/06/08 16:26