'
On Error Resume Next
'Sheet1をコピーSheet2を作成
work_s0 = "Sheet1 (2)"
work_s1 = "Sheet1"
work_s2 = "Sheet2"
Sheets(work_s2).Select
Sheets(work_s2).Delete
Sheets(work_s0).Delete
Sheets(work_s1).Copy Before:=Sheets(1) 'Sheet1をコピー
Sheets(work_s2).Select
Sheets(work_s2).Delete
Sheets(work_s0).Name = work_s2 'Rename
