Jim, not sure why, but I did leave out a parenthesis on my last post.
Should have been:
Set mRange=Range("A2:A" & Range("A65536").End(xlUp).Row)
That is just hte method that I use because I have ran into problems
using the Rows.Count method. As for the mRange variable issue, that
was a type. It certainly should have been declared as a Range. Just
an oversight on my part.
Jim Thomlinson wrote:
Are you sure about that line. The brackets don't line up (among other
issues). This might be better...

Set mRange = Range("A2", Cells(Rows.Count, "A").End(xlUp))

Also note that you have declared mRange as a variant instead of a range
which while not strictly incorrect is a bad practice in general...
--
HTH...

Jim Thomlinson


"JW" wrote:

Oops. Had a type.
Replace:
Set mRange=Range("A2:A" & Range("A65536").End(xlUp.Row)

With:
Set mRange=Range("A2:A" & Range("A65536").End(xlUp).Row

JW wrote:
This will cycle through all of the cells in column A. You can tweak
this to look for whatever and wherever you need.
Dim r as Range, mRange
Set mRange=Range("A2:A" & Range("A65536").End(xlUp.Row)
For Each r in mRange
If Left(r.Value,12)="Item Ordered" Then
'Place code to process order here
End If
Next r
Set mRange=Nothing

Steve wrote:
Orders come in by Outlook Express email. I copy the email to an Excel
worksheet and then I process the order. Orders may be multiple items. Each
item in the order begins with the words "Item Ordered" in column A which is
then followed by three rows regarding the item ordered and then a blank row.
How do I write the following in Excel VBA:

Find First "Item Ordered" in column A
<< Code to process the item ordered
Find Next "Item Ordered" in column A
If "Item Ordered" found Then
<< Code to process the item ordered
Else
Message "All items in order have been processed"
End If

Thanks for all help!

Steve