Can't access another workbook with GetOpenFilename w/o error

[tearsmith]

All,

I have a line of code that reads like this....


Private Sub CommandButton2_Click()

Dim str As String
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook

str = Application.GetOpenFilename("excel files_
(*.xls),*.xls&quot

Set objExcel = New Excel.Application
Set objBook = objExcel.Workbooks.Open(str)

objBook.Sheets("Sheet1&quot.Select
Range("AB2:AB762&quot.Select
Selection.Copy
Workbooks("code.xls&quot.Activate
Sheets("Sheet2&quot.Select
Range("B4&quot.Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
Range("AF2:AF762&quot.Select
Selection.Copy
ActiveWorkbook.Close
Range("D4&quot.Select
ActiveSheet.Paste
Range("B1&quot.Select
Sheets("Sheet1&quot.Paste

End Sub

The problem is, when the file selection box opens and I find my workbook to open, the macro bugs up and tells me that the document I choose ("86783.xls&quot cannot be accessed. What am I missing here? I am trying to get the information from AB1:AB762 into the macro worksheet, etc.

Any help would be great. Thanks in advance.