A "brief" look shows that you need to change worksheets to workbooks, etc.
Set paycode =
Worksheets([emplabdt.xls]!Sheet1).Columns("A").Find("PayCode")
Set paycode =
Workbooks("emplabdt.xls").Sheets(1).Columns("A").F ind("PayCode")

"JimKusche" wrote in message
...
All references I can find describe running a macro that is located in
another workbook. I want to perform a task ON another workbook using a
routine in the current workbook. I can't add the routine to the other
book
because it's a datafile(.xls) generated from another program.

Specifally I want to "find" a value and then copy it into the current
workbook.

I can open the workbook but don't seem to be able to perfom any tasks on
it.

EtimeFile = "C:\My Documents\Work files\emplabdt.xls" 'used at home
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open (EtimeFile)
XL.Visible = True

Set paycode = Worksheets([emplabdt.xls]!Sheet1).Columns("A").Find("Pay
Code")
paycode.Select




-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----