Sub 不要シートの削除() '警告停止 Application.DisplayAlerts = False 'ワークシート削除 Worksheets(Array("Sheet1", "Sheet3")).Delete '警告戻し Application.DisplayAlerts = True End Sub

Sub 全シートを式から値に変換() '全てのシートの処理 for i = 1 to sheets.count 'データがある全てのセル範囲を値に変換 sheets(i).usedrange.value = sheets(i).usedrange.value End Sub