Hi Nigel

Example for column A

Sub test2()
' below the word
Dim Rng As Range
Dim findstring As String
findstring = "line"
Set Rng = Range("A:A").Find(What:=findstring, After:=Range("A65536"), LookAt:=xlWhole)
While Not Rng Is Nothing
Rng.Offset(1, 0).EntireRow.Insert
Set Rng = Range("A" & Rng.Row + 1 & ":A" & Rows.Count) _
.Find(What:=findstring, After:=Range("A65536"), LookAt:=xlWhole)
Wend
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Nigel Bennett" wrote in message ...
I used the Insert a blank column function and it works
great, I was trying to work out how to modify it to insert
a blank row, in column B ther will be the word line, if it
finds that word I want it to insert a blank row after that
and then continue on to a maximum of x number of rows

Any Ideas

Thanks