Actually, I see I picked up a stray period when I copied your path

Dim wb as Workbook
set wb = Workbooks.Open( "C:\somepath\somesheet.xls")
wb.Worksheets(3).Cells.copy Destination:= _
ThisWorkbook.Worksheets(3).Cells
wb.close SaveChanges:=False

--
Regards,
Tom Ogilvy


"Henry" wrote in message
...
Thanks, Tom. I'll have to give this a shot tomorrow.


Henry


Tom Ogilvy wrote:
set wb = Workbooks.Open( "somepath\somesheet.xls".)
wb.Worksheets(3).Cells.copy Destination:= _
ThisWorkbook.Worksheets(3).Cells
wb.close SaveChanges:=False