micos excel
New Member
- Joined
- Dec 25, 2017
- Messages
- 2
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
>
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


Rem Records payroll data inrecords file<o


Static bFileopen As Boolean<o


Dim wbRec As Workbook<o


Dim wbPR As Workbook<o


Workbooks.Open"I:\Rosy's\Pay Roll\2017 Pay Records .xlsm"<o


Set wbPR =Workbooks("FinalPAYROLL.xlsm")<o


***** Set wbRec =Workbooks("I:\Rosy's\Pay Roll\2017 Pay Records.xlsm")<o


' wbRec.Unprotect<o

