Try to put all borders on cells in col. a to col. n

[yodzak]

I am trying to all borders from column a to column n on worksheets that have a varying number of rows.

This is the code I cannot get to work.
Sub DoWhileSomething()

Range("a3:n3").Select
Do While ActiveCell.Value <> ""
Range("a3:n3").Borders(xlEdgeBottom).LineStyle = xlContinuous
ActiveCell.Offset(2, 0).Range("a1:n1").Select
Loop

End Sub


Thanks,
Yodzak