シートを別ブックにコピー 名前重複処置

Question

シートを別ブックに保存する際、保存先のブックにすでに同名のシートが存在した場合、”シート名_2” "シート名_3"のように連番にして保存させるような仕組みを考えています。連番にするような処理は出来ているのですが、どのように別ブックのシート名と保存対象のシート名を比較するのかがわかりません。どのようにしたらよいのでしょうか？

．．．

Answer 1

acitivesheetは保存したいシートのままだったので出来ました

Answer 2

以前同じような質問＆回答しましたが、これを流用するのはダメなんですか？
https://teratail.com/questions/47861

Comments

[coko1]

Set wb = Workbooks.Open("C:\Users\Desktop\aaa.xlsx")
chk = Workbooks(wb.Name).Sheets.Count
ActiveSheet.Copy After:=wb.Sheets(chk)
Application.DisplayAlerts = False
wb.Save
wb.Close
Application.DisplayAlerts = True

という記述を現在していて、その質問の回答を流用するつもりでつくっているのですが、どうチェックしたらよいかがうまくわからない状況でして。