他のシートも削除したかったので、プロシージャを分けてあります。特定のシートだけ初期化するのであれば、もっと簡単になりますね。 Sub all_clear_sheet(ByVal sheet_name As String) 'アクティブシートの切り替え ActiveWorkbook.Worksheets(sheet_name).…