Передать имя листа в функцию LastRow

Question

Как я могу добавить имя листа к этой функции для передачи из других частей кода, где вызывается функция?Должен быть иной способ, чем убедиться, что лист, который я хочу оценить, «выбран» перед вызовом функции.

Function LastRow()

    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).row
    End With

End Function

Answer 1

Вот так, включая необязательный параметр для фокусировки на конкретном столбце, если это необходимо

Function LastRow(targetSheet as Worksheet, _
                 Optional targetCol as String = "A")
    With targetSheet
        LastRow = .Cells(.Rows.Count, targetCol).End(xlUp).row
    End With    
End Function