Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Consider only cells that contain data in the form of numbers, text, and formulas

Sub GetRealLastCell()          Dim lRealLastRow As Long          Dim lRealLastColumn As Long          Range("A1").Select          On Error Resume Next          lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas,, xlByRows,      xlPrevious).Row          lRealLastColumn = Cells.Find("*", Range("A1"), xlFormulas,,                 xlByColumns, xlPrevious).Column          Cells(lRealLastRow, lRealLastColumn).Select      End Sub