Thread: how do I create a macro to select all colored cells in a worksheet
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Master Blaster Master Blaster is offline
external usenet poster
  
Posts: 17
Default how do I create a macro to select all colored cells in aworksheet
On Jan 31, 8:06*pm, slb0927 wrote:
Need help writing the code for an Excel Macro that would find all cells that
have any interior color so that an outer border can be added around all
colored cells.

If you adjust the range than the code below is simple and works.

Sub Select_Colored_Cells()

For r = 1 To 30
For k = 1 To 30

If Cells(r, k).Interior.ColorIndex < xlNone Then
Cells(r, k).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End If

Next k
Next r
End Sub
Reply With QuoteReply With Quote