Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Is in last row

Function LASTINROW(rngInput As Range) As Variant     Dim WorkRange As Range     Dim i As Integer, CellCount As Integer     Application.Volatile     Set WorkRange = rngInput.Rows(1).EntireRow     Set WorkRange = Intersect(WorkRange.Parent.UsedRange, WorkRange)     CellCount = WorkRange.Count     For i = CellCount To 1 Step -1         If Not IsEmpty(WorkRange(i)) Then             LASTINROW = WorkRange(i).Value             Exit Function         End If     Next i End Function