All the way down to the bottom of the sheet? Or only to the last data line
you entered? If the latter, is it possible that you are simply seeing the
borders from the previously added data (assuming you don't have code to
remove the previously placed borders)?

--
Rick (MVP - Excel)


"Risky Dave" wrote in message
...
Both,

thanks for your responses. there must be something else happening then,
'cos
it is definitely putting borders around every line in my sheet.

Mmmmm

Dave

"Rick Rothstein" wrote:

Your code works fine for me. If I define rRiskCount to be 4, then the
only
cells your code puts borders around are all the cell in the range A4:N4
and
no other cells.

--
Rick (MVP - Excel)


"Risky Dave" wrote in message
...
Hi,

I have a piece of code that adds a new line into an XL page that I'm
using
as a database.

When the line is added, I want Xl to format it so it looks pretty for
the
users, 'cos that's important to them :-)

What I'm struggling with is adding a border to the various cells that
have
been added.

The code I am using is:

With Sheets("Identification").Range("a" & rRiskCount & ":n"
&
rRiskCount) ' top left justify all cells
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.Borders.LineStyle = xlContinuous ' add borders
End With

(rRiskCount is defined earlier and returns an integer)

Which works except that it is putting a border around every cell in
cloumns
A through N rather than just those in the range defined as A &
rRiskCount
through N rRiskCount.

How do I limit the formatting monster?

TIA

Dave