regels verwijderen boven een woord

[vrouw]

Hoi,

Wellicht een beetje vreemde vraag.

Ik wil alle regels (dmv macro) verwijderen die boven een bepaald woord staan.

Stel:
op regel 100 in cel A100 staat het woord "hallo".
Nu zou ik willen dat alle regels boven dit woord verwijderd worden, kan dat?

 

[cow18]

Sub VerwijderBovenHallo()
  Dim c        As Range
  Set c = Sheets("blad1").Cells.Find("Hallo", , xlValues, xlWhole)
  If Not c Is Nothing Then
    If c.Row > 1 Then c.Offset(1 - c.Row).Resize(c.Row - 1).EntireRow.Delete shift:=xlUp
  End If
End Sub

 

[vrouw]

Ik krijg de foutmelding: out of range op regel
Set c = Sheets("blad1").Cells.Find("Hallo", , xlValues, xlWhole)
Ik heb een engelse office 2003!

Oeps ik zie het al!
Had de tabblad een naam gegeven

 

[vrouw]

werkt perfect, bedankt