シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。 Public Sub シート削除リネーム() Dim sss Dim shtname1 Dim shtname2 sss = Range("A1") shtname1 = sss & "注文データ" shtname2 = sss & "注文データ (2)" Worksheets(shtna…