Auto Select Range

[MicJag]

Hi all, ive been trying myself to get this but Failed

i have

Sub BreakCF()
   Call ConditionalFormatDelink(Range("A1:AU2000"))
End Sub

to call up a code but would like to have it auto select the last row or if you can make me look smart, a box that pops up to type the total rows

much appreciated and thanks in advance

 

[VoG]

Try

Sub BreakCF()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Call ConditionalFormatDelink(Range("A1:AU" & LR))
End Sub

 

[MicJag]

Try

Sub BreakCF()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Call ConditionalFormatDelink(Range("A1:AU" & LR))
End Sub

Thank you very much Sir