Click here to go to the new site
http://www.visiblevisual.com/jupgrade
This code displays the last row that contains data
[code]
Sub LastRow() '**************************************** '*** Code from VisibleVisual.com ******** '**************************************** Dim ix As Long ix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.count MsgBox ix 'Display the last used row End Sub [/code]
E-mail (required, but will not display)
Website
Notify me of follow-up comments
Refresh