Hi
I am trying to Call this Function from my sub to get the last row in a table, but I can't get it right!
What is the right Syntax for Calling this Function?
Function LastTableRow( _
Optional ByVal TableSheet As Worksheet _
) As Long
'
' Finds the last row of all Tables on a specified worksheet. If omitted the active sheet is used.
'
' Author: Zack Barresse
'
' Syntax: LastTableRow([TableSheet])
'
' Parameters: TableSheet. ListObject. Optional. The worksheet to look at.
'
Dim Table As ListObject
Dim LastRow As Long
' Get passed sheet object
If TableSheet Is Nothing Then
If ActiveSheet Is Nothing Then Exit Function
Set TableSheet = ActiveSheet
End If
' Iterate all Tables on specified sheet
For Each Table In TableSheet.ListObjects
If Table.DataBodyRange Is Nothing Then
LastRow = WorksheetFunction.Max(Table.InsertRowRange.Row + 1, LastRow)
Else
LastRow = WorksheetFunction.Max(Table.ListRows(Table.ListRows.Count).Range.Row, LastRow)
End If
If Table.ShowTotals Then LastRow = LastRow + 1
Next Table
' Assign value
LastTableRow = LastRow
End Function
Bookmarks