VBA for Last Cell in Formula Range
just pick the last item from the range:
Sub last_formula()
Set rge = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormu las,
xlCellTypeLastCell)
f = Split(rge.Address, ",")
u = UBound(f)
MsgBox (f(u))
End Sub
--
Gary''s Student - gsnu200719
" wrote:
Using VBA
Trying to indentify the last cell on sheet that has a formula.
code fragment below
have tried
Set rge = Sh.UsedRange.SpecialCells(xlCellTypeFormulas,
xlCellTypeLastCell)
msgbox rge.Address
However I this returns the address of all formula cells
Any suggestions to get the address of the last cell with a formula ?
ie used range a1: j 100 , and last formula may be j 89
|