Последняя строка таблицы AddIn

Question

Я создал AddIn и должен ссылаться на последнюю ячейку в столбце A. Я делаю это все время в обычных макросах, но имею время с ним в AddIn.

Я попытался

lRow2 = ThisWorkbook.Sheets("Client").Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Count 

и

lRow2 = ThisWorkbook.Sheets(1).Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Count 

даже

Dim ws2 As Worksheet 
Dim lRow2 As Long 

Set ws2 = ThisWorkbook.Sheets("Client") 

With ws2 
    lRow2 = .Range("A" & .Rows.Count).End(xlUp).Row 
End With 

который только возвращает значение 1, которое не является правильным.

Я прочитал, что мне нужно использовать ThisWorkbook для ссылки на рабочий лист Addin, но я либо получаю индекс за пределами диапазона, либо объект не поддерживает эти методы по-разному, я пытался это записать.

Answer 1

Я был близок. Это возвращает правильный номер последней строки для листа добавления.

With Workbooks("Book1.xlam").Sheets("Sheet1") 

lRow = Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Count 

End With