Обработка активной книги Excel - VB

Формулировка задачи:

Необходимо определить количество заполненных строк первого и второго, по индексу, листов активной книги Excel (книга открыта). На седьмой строке переменной xlsWb , значение не присваивает ??? Спасибо за ответ.

Sub main()
Dim xlsApp As Object 
Dim xlsWb  As Object 
Dim xlsSh  As Object 
Dim a&, n&, b&
    Set xlsApp = CreateObject("Excel.Application") '    xlsApp.Visible = True
    Set xlsWb = xlsApp.ActiveWorkbook 
    n = xlsWb.Sheets.Count
    Set xlsSh = xlsWb.Sheets(1)
      a = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
    Set xlsSh = xlsWb.Sheets(2)
      b = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Решение задачи: «Обработка активной книги Excel»

textual
                            Листинг программы 
                        
                             b = xlsSh.Cells(xlsSh.Rows.Count, 1).End(xlUp).RowEnd