Excelですべてのヘッダとフッタを削除するマクロ

Excelですべてのヘッダとフッタを削除するマクロ

マクロをアドインとして登録する手順

Excelを便利に！アドインの作成

マクロ

すべてのシートのヘッダとフッタを削除する

Sub ヘッダフッタ削除()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ws.PageSetup.LeftHeader = ""
        ws.PageSetup.CenterHeader = ""
        ws.PageSetup.RightHeader = ""
        ws.PageSetup.LeftFooter = ""
        ws.PageSetup.CenterFooter = ""
        ws.PageSetup.RightFooter = ""
    Next ws
    MsgBox "すべてのヘッダとフッタを削除しました", vbInformation, "完了"
End Sub

開いているアクティブなシートのみ削除する

Sub ヘッダフッタ削除()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
    MsgBox "アクティブなシートのヘッダとフッタを削除しました", vbInformation, "完了"
End Sub