Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Is in last column

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