Instead of trying to keep the existing borders, could you remove the borders and
reapply?

I would think that this would be more straightforward (er, pronounced easier).

Jack Sons wrote:

Hi all,

When I sort a column the order of cells will be rearranged, see this code:
Worksheets("TRY").Columns("A:C").Sort Key1:=Range("C1"),
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom ', _
'DataOption1:=xlSortNormal.
All cell details will go to the new place of the cell, like value, text
color, italic, bold etc. and even fill color, but not the cell borders.

I really need code to sort with which also the cell borders will change
place, I mean they will "stick" to the cell content, so

1
2
3

will result in

3
2
1
Your help will be appreciated.

Jack Sons
The Netherlands

--

Dave Peterson