Excel総合相談所 153

274 ：名無しさん＠そうだ選挙にいこう：2023/03/24(金) 14:11:10.63 .net

【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2018
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
vbaを用いてシートごとに自動転記する際にエラーが発生してしまいます。
プログラム９で
実行時エラー1004
この名前は既に使用されています。別の名前を入力してください。
といわれてしまいます。
このような場合、どうすればよろしいでしょうか。
'プログラム1｜プログラム開始
Sub CreateSheets()
'プログラム2｜シート設定
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("データ")
Set ws2 = ThisWorkbook.Worksheets("原紙")
'プログラム3｜最終行を取得
Dim cmax1 As Long
cmax1 = ws1.Range("A65536").End(xlUp).Row