Delete all rows ABOVE 'Key Word'

[leeksleeks]

Hi,

I am after a macro that will delete all rows above a pre-defined keyword on an active worksheet? I have a macro that will delete all rows INCLUDING the one with the keyword on it, but I want to be able to keep the row with the key word on it.

Here is the code I have currently:

Rows("1:" & Cells.Find("KEY WORD").Row).Delete
On Error Resume Next

End Sub

Im sure there is an easy solution to this so I look forward to hearing your responses

 

[VoG]

Try

Rows("1:" & Cells.Find("KEY WORD").Row - 1).Delete

 

[leeksleeks]

Legend. Thank you very much. Works perfectly.

Cheers