'open file with list
Workbooks.Open Filename:="H:\Switch Accounts.xls"
'the list of the names of the companies start on A2
RangeCount = 2
Var = Range("a" & RangeCount)

'activate file with data
Windows("ord-dump.xls").Activate

Sheets.Select

'Find company

Cells.Find(What:=Var, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False, SearchFormat:=False).Activate

End Sub
HTH
Daniel

Hi:

I am trying to write a macro which searches for names of companies listed in
one file (Switch Accounts) on other file with data ("ord-dump).


'open file with list
Workbooks.Open Filename:="H:\Switch Accounts.xls"
'the list of the names of the companies start on A2
RangeCount = 2
Range("a" & RangeCount).Select

'activate file with data
Windows("ord-dump.xls").Activate

Sheets.Select

'Find company

Cells.Find(What:=( I don't know how to code to find the active cell from
file Switch Accounts.xls), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


End Sub