View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
webby2006[_4_] webby2006[_4_] is offline
external usenet poster
 
Posts: 1
Default Selection.Borders and replace with new colour procedure


I have populated my worksheet with data from pivot tables. An advantag
is that all cells are merged and borders are drawn for me. My questio
is whether it is possible to change the colour of all lines and border
using a VB procedure. I have recorded a macro below. Perhapss I need t
detect all lines/borders that are black then do a replace with ne
colour.


Code
-------------------
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With

-------------------


Once again thanks

--
webby200
-----------------------------------------------------------------------
webby2006's Profile: http://www.excelforum.com/member.php...fo&userid=3674
View this thread: http://www.excelforum.com/showthread.php?threadid=56700