I have a problem in trying to perform a fast find in excel. If there is such a thing.

Background, I have an excel spreadsheet with 30,000 records, on each of the 9 worksheets. I have a set of 79 values that I want to find.

I recorded a macro, which consisted of "Finding" a specific value, in Column A which this is the code for:

Columns("A:A").Select
Selection.Find(What:="1234", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate

What syntax do I have to use for the find to work in VB?
The following is the code for opening the Workbook

xl_name = "c:\boe\DVAR_all.xls"
Set xl = GetObject(xl_name)
xl.Application.WindowState = xlMaximized


Any help would be greatly appreciated!