I believe the find  function has an "after" parameter. Check the help.

I found this code on ozgrid.com, it looks like what you are looking
for. This code finds each instance of the word "Cat" in column A and
sets the font to Bold. It should be easy for you to adapt this to
search for a date  in column B and insert  a row. You might have to
change the loop to step backwards.

Sub BoldCat()
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer

iLoop = WorksheetFunction.CountIf(Columns(1), "Cat")
Set rNa = Range("A1")

For i = 1 To iLoop
Set rNa = Columns(1).Find(What:="Cat", After:=rNa, _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)
rNa.Font.Bold=True

Next i

End Sub

will give your ideas a try and let you know
how I get on.

Code works well in identifying each date  and setting font to bold.
It even calls the sub to insert  a row. Problem is instead of it
inserting a row below the next instance it inserts the row below the
one its just done. There must be something I need to do in the loop
to stop it returning to the first instance and repeating the insert?

Can you post the code you are using?

Sorry, it sounds like you took the code I posted and added  in the
parts from your original code. You are using a separate subroutine  to
select the row and do the inserting. That is probably why it
is "restarting." You don't need to select the row to act on it, you
can use the cell  properties to manipulate the data. I tested the code
below and it worked.



Sub FindDate()
'
'
'
Dim iLoop As Integer
Dim rNa As Range
Dim i As Integer

iLoop = WorksheetFunction.CountIf(Columns(1), "26/7/2007")
Set rNa = Range("A1")

For i = 1 To iLoop
Set rNa = Columns(1).Find(What:="26/7/2007", After:=rNa, _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)
rNa.EntireRow.Insert
Next i

End Sub

Ok - think I've cracked it - well seems to work OK.

Just replaced the rNa.Font.Bold = True
with rNa.EntireRow.Insert

rather than calling  a sub to do the insert

thanks for your time guys