Community
Dim oLayers As AcadLayers
Dim oldColor As AcadAcCmColor
Dim olayCol As Integer
Dim newColor As Integer
Set oLayers = ThisDrawing.Layers 'current document layers collection
newColor = 4
Dim I As Integer
For I = 0 To ThisDrawing.Layers.Count - 1
Set oldColor = oLayers.Item(I).TrueColor
olayCol = oldColor.ColorIndex
If newColor = olayCol Then
MsgBox "The new color:" & newColor & " matches the old layer color: " & olayCol
'I want to change the old layer color here.
End If
Next I