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