質問: 0 on error goto 0 activesheet.drawingobjects.delete end sub
回答: こんにちは 若干内容を変えていますが、こんな感じでしょうか? ※ シートの追加作成位置をシートの最終位置に追加してゆきます。 ※ 終了がはっきりしませんので、nでシート数を指定するようにしています。 ※ 同様に最初のシート名を日付で指定するようにしています。 ndate = datevalue("2020/1/1")の部分 エラー処理は特に行っていません。 (すでに同名のシートが存在する場合などはエラーになります) sub sample_11685381() dim sht as worksheet, ndate as date, i as integer const n = 12 set sht = worksheets("書式") ndate = datevalue("2020/1/1") for i = 1 to n sht.copy after:=worksheets(worksheets.count) set sht = activesheet sht.name = year(ndate) & "." & month(ndate) ndate = dateserial(year(ndate), month(ndate) + 1, 1) next i end sub