Hi All,
I have the below code that works (FindMax), but thought I would try and alter it by replacing the “B20:B” part with FR. I’m not having any luck, can someone point me in the right direction please.
This works
Sub FindMax()
Dim LR As Long 'LastRow
Dim FR As Long 'FirstRow
FR = Range("B9")
LR = Cells(Rows.Count, "C").End(xlUp).Row
Range("e6").Formula = "=Max(b20:b" & LR & ")"
End Sub
This does not – the Range("e6").Formula = "=Max(" & FR & LR & ")” part is wrong, it is missing the colon: and don’t know how to make it work.
Sub FindMax2()
Dim LR As Long 'LastRow
Dim FR As Long 'FirstRow
FR = Range("B9").Address(0, 0)
LR = Cells(Rows.Count, "C").End(xlUp).Row
Range("e6").Formula = "=Max(" & FR & LR & ")”
End Sub
Thanks
Nat
Bookmarks