how can i select all the cells with same color on a sheet if there are multipale colors by vba code

  • Thread starter Thread starter uobt
  • Start date Start date
U

uobt

how can i select all the cells with same color on a sheet if there are
multipale colors by vba code
 
Much better than the 1st post. try this

Sub selectyellows()
For Each cel In ActiveSheet.UsedRange
If cel.Interior.ColorIndex = 6 Then
mystr = mystr & cel.Address & ","
End If
Next cel
mystr = Left(mystr, Len(mystr) - 1)
Range(mystr).Select
End Sub
 
Back
Top