En hurtig lille makro: Fjerne rækker med "---"

Sub Makro1()
On Error Resume Next
    Cells.Find(What:="---", After:=Range("A1"), LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
While ActiveCell = "---"
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
Wend
End Sub

Perfekt, Excelent!

Eneste problem er, at den skat starte omkring A30 og ikke vende tilbage til arkets top, når den har været igennem resten (ellers sletter den nemlig også listens topstykke!)

prøv :

Sub Makro1()
On Error Resume Next
    Cells.Find(What:="---", After:=Range("A30"), LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
While ActiveCell = "---"
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
    If ActiveCell.Row < 30 Then End
Wend
End Sub

anvend med denne

Sub Makro1()
On Error Resume Next
    Cells.Find(What:="---", After:=Range("A30"), LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
    If ActiveCell.Row < 30 Then End
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
While ActiveCell = "---" And ActiveCell.Row > 30
    Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 14).EntireRow.Delete
    Cells.FindNext(After:=ActiveCell).Activate
    If ActiveCell.Row < 30 Then End
Wend
End Sub

Smid et svar, Excelent! Den sidder lige i skabet, mange tak!

velbekom