Workbook sheet last cell run error in VBA

Question

Dears, Can anybody help me why stops this code with error message (Run-time error '9': Subscript out of range)?

The code snippet:

CollectFileName = "C:\Users\g\Documents\CAFM\VBS\access.xlsx"

    Workbooks.Open (CollectFileName)
    ActiveWindow.Visible = False

LastDayRow = Workbooks(CollectFileName).Sheets(1).Range("B" & Rows.Count).End(xlUp).Row

Answer 1

When using a workbook to specify the Sheet, you should also do the same with Rows.Count (and others, like Cells() , , Columns() , Rows() , etc.):

LastDayRow = Workbooks(CollectFileName).Sheets(1).Range("B" & Workbooks(CollectFileName).Sheets(1).Rows.Count).End(xlUp).Row

or

CollectFileName = "C:\Users\g\Documents\CAFM\VBS\access.xlsx"
Dim wb as Workbook
Set wb = Workbooks.Open(CollectFileName)

With wb.Sheets(1)
    lastDayRow = .Range("B" & .Rows.Count).End(xlUp).Row
End With