Skip to content

Instantly share code, notes, and snippets.

@ledovsky

ledovsky/last_row.vb

Created July 31, 2015 06:51
Show Gist options
  • Save ledovsky/7a740b48f11a123ab192 to your computer and use it in GitHub Desktop.
Save ledovsky/7a740b48f11a123ab192 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
last_row.vb
Function lngLastRow(shtSheet) As Long
'Searching last row with data
Dim MyRange As Range
Set MyRange = shtSheet.Range("A1")
lngLastRow = shtSheet.Cells(65536, MyRange.Column).End(xlUp).Row
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment