lave et filter

Sub SkjulRækkerOverNettoomsætning()
  Cells.EntireRow.Hidden = False
    Cells.Find(What:="nettoomsætning", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        Rows("1:" & ActiveCell.Row - 1).Hidden = True
End Sub

eller

Sub SkjulRækkerOverNettoomsætning()
    Dim AD As String
    Cells.EntireRow.Hidden = False
    Columns("B:B").Select
    Selection.Find(What:="nettoomsætning", After:=ActiveCell, LookIn:= _
                  xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                  xlNext, MatchCase:=False, SearchFormat:=False).Activate
    AD = ActiveCell.Address
    Rows("1:" & ActiveCell.Row - 1).Hidden = True
    Range(AD).Select
End Sub

Det virker perfekt.
Mange tak for hjælpen