I have often found bits and snippets of code on the web that I have incorporated into things I'm working on. I take no responsibility for these code samples. Most of them have been laboriously gleaned off of the web, but they're real handy to have quick access to. So bookmark this and enjoy...
JovialJohn
Tuesday, May 4, 2010
Find the last used row in a Column:
Sub LastRowInOneColumn()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub
No comments:
Post a Comment