'もしシートがあった場合は消去する

On Error Resume Next
Application.DisplayAlerts = False
Set Ws = Worksheets("いらないよ"): Ws.Delete
Application.DisplayAlerts = True

Follow me!