簡単なVBAだけど重宝してます。

シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。

Public Sub シート削除リネーム()

Dim sss
Dim shtname1
Dim shtname2

sss = Range("A1")
shtname1 = sss & "注文データ"
shtname2 = sss & "注文データ (2)"
Worksheets(shtname1).Delete
Worksheets(shtname2).Name = shtname1

End Sub