macro to change colour of existing cell boarders in a sheet without effecting anything else?

[tonywatsonhelp]

Hi Everyone,

I have a sheet with loads of areas all created by someone else who did not see the importance of merging cells,

So I have boarders that I cant simply change the colour of as it takes ages.

I need a macro that can change all existing boarders either on active sheet or in a specified range say "A1:AZ100" from existing colour to RGB 191,191,191 and if possible make them all thin lines

I hope this can be done please help if you know how

thanks

Tony

 

[FormR]

I have a sheet with loads of areas all created by someone else who did not see the importance of merging cells

Hi, isn't the important thing to remember about merged cells is that they should be avoided like the plague

Here is some code you can try on a copy of your workbook.

Sub M()
Dim C As Range, V
For Each C In Range("A1:AZ100")
  For Each V In Array(xlEdgeBottom, xlEdgeTop, xlEdgeRight, xlEdgeLeft, xlDiagonalDown, xlDiagonalUp)
    If C.Borders(V).LineStyle <> xlNone Then
      C.Borders(V).Weight = xlThin
      C.Borders(V).Color = RGB(191, 191, 191)
    End If
  Next V
Next C
End Sub

 

[tonywatsonhelp]

Hi Form R,
Thank very much for this works great.


Tony