run time error 9 in a Set statement

[micos excel]

When this sub is run a get run time error (subscript out of range) at stared statement.
I know the location is correct because I used this location to open the workbook.

This error message does not seem to apply this statement.

Help


Sub SingleRecord()<o></o>
Rem Records payroll data inrecords file<o></o>
Static bFileopen As Boolean<o></o>
Dim wbRec As Workbook<o></o>
Dim wbPR As Workbook<o></o>
Workbooks.Open"I:\Rosy's\Pay Roll\2017 Pay Records .xlsm"<o></o>
Set wbPR =Workbooks("FinalPAYROLL.xlsm")<o></o>
***** Set wbRec =Workbooks("I:\Rosy's\Pay Roll\2017 Pay Records.xlsm")<o></o>
' wbRec.Unprotect<o></o>

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub SingleRecord()
Rem Records payroll data inrecords file
Static bFileopen As Boolean
Dim wbRec As Workbook
Dim wbPR As Workbook
Set wbRec = Workbooks.Open("I:\Rosy's\Pay Roll\2017 Pay Records .xlsm")
Set wbPR = Workbooks("FinalPAYROLL.xlsm")
' wbRec.Unprotect

PS in your code you have a space between records & .xlsm when you open it, but not when you try to set wbRec

 

[micos excel]

Thanks for the typo. I corrected it and it still gives error 9.

 

[Fluff]

Did you try the code I supplied, or just modified yours?