Thanks Lonnie
This is very close to what I am looking for, just I am getting an error
saying "Object doesn,t support this property or method" and is highlighting
from Range("A1") to the end.
Any idea what could be happening.

Fernando


"Lonnie M." wrote in message
oups.com...
Hi, I think I understand what you are trying to do. If I am wrong let
me know, but give this a try:

Sub FindAcct()
Dim Acct$
'Assuming alpha numeric account number
'If it is a number then use Type:=1
Acct = Application.InputBox(prompt:="Enter Account", Type:=2)
Range("A1").Select
Cells.Find(What:=Acct, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

HTH--Lonnie M.