Thanks Lonnie,
Yes, that happend but I fixed it and same message came out, but what I did
is to add first line of what I got with the macro record which is
Columns("A:A").Select
Selection.Find(What:=Acct, After........

and works fine.

Thanks a lot for your help


"Lonnie M." wrote in message
oups.com...
If you pasted this in, it may have broken some of the lines where it
shouldn't have.
When I tried pasting this it placed "SearchDirection:=xlNext, _" on
it's own line, and I had to bring it back up to the previous line. If
this happened it should be pretty easy to tell because most likely a
portion of the code will be colored red.

HTH--Lonnie