AddIn工作表的最后一行

Question

I've created an AddIn and need to reference the last cell in column A. I do this all the time in regular macros but having a time with it in the AddIn.

I've tried

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

and

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

even

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

which only returns a value of 1 which is not correct.

I've read that I have to use ThisWorkbook to refer to the AddIn worksheet but I either get subscript out of range or object doesn't support this methods in the various way I've tried to write this out.

Answer 1

I was close. This retrieves the correct last row number for the addin worksheet

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

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

End With