VBA Excel - Limpando cabeçalhos sem uso no Excel

Desenvolvi esta solução a partir de várias soluções que poderão consultar depois.

6º exemplo:

Sub RemovePageHeaders()

    Application.ScreenUpdating = False

    Dim objRange As Range

    Set objRange = Cells.Find("HeaderText")

    While objRange <> ""

        objRange.Offset(1, 0).Rows(1).EntireRow.Delete

        objRange.Rows(1).EntireRow.Delete

        Set objRange = Cells.Find("HeaderText")

    Wend

    MsgBox ("Removido todos os cabeçalhos")

End Sub

Tags: Excel, Delete, clean, remove, header, Linha, Plan, Planilhas, Row,  rows, worksheet, lines, UDF

André Luiz Bernardes

A&A® - In Any Place.