Solved: Border Trouble!

[compariniaa]

I recorded a macro to add a border all around the last cell in column F. After Adjusting it (RN is the row number of the last nonblank cell), this is what I came up with:

[vba]Sub Border()
With Range("F" & RN)
.borders(xlDiagonalDown).LineStyle = xlNone
.borders(xlDiagonalUp).LineStyle = xlNone
With .borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub[/vba] But it doesn't work. What am I doing wrong? This should be a fairly simple and straightforward step.

[mdmackillop]

You neeed to pass the RN value to Border
EG
[VBA]
Sub DoThings()
Border 10
End Sub

Sub Border(RN As Long)
With Range("F" & RN)
.Borders(xlDiagonalDown).LineStyle = xlNone
'etc.

[/VBA]

[compariniaa]

I knew it was simple! Thanks for pointing that out