Thanks that worked great


"chris" wrote in message
...
Trry this:
Set c = MyRange.Find(Val)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = MyRange.FindNext(c)
Rw=range(c.address).row
Loop While Not c Is Nothing And c.Address < firstAddress
End If


----- Jamie wrote: -----

On a sheet called orderdata i have values indexed by there order id
this is
in a form of 10001 or 10002 etc. I need a way of going through each
row with
the same order id as im displaying them on a invoice. An example of
the data
on the sheet is

ID , Description, quantity

10001, An example, 2
10001, An example2, 3
10002,... etc

For each row i need to find out the row that the data is on so i can
gain
the decription and quantity from the script.

Thanks for any help

Jamie