Thanks for the follow-up. I tried your updated code as follows:

= = = = = = = = = = = = = = = = = = = = = = = = =

Dim strFileName As String
Dim wbSource As Workbook

strFileName = "k:\topside\vba\PF_ACCT_LIST.xls"

Application.ScreenUpdating = False

Set wbSource = Workbooks.Open(strFileName)
wbSource.Worksheets(3).Cells.Copy
Destination:=ThisWorkbook.Worksheets(3).Cells
wbSource.Close

= = = = = = = = = = = = = = = = = = = = = = = = =

but get a "subscript out of bounds" error. Any ideas?


Henry


*** Sent via Developersdex http://www.developersdex.com ***