Sub color()
For i = 2 To 436
m = Sheets("Ротация").Cells(i, 1).Value
col = 1
 y = Sheets("Карта").Cells(3, 23).Value
  For c = 3 To 15
  If Sheets("Карта").Cells(c, 25).Value = Sheets("Ротация").Cells(i, y).Value Then
  col = c
  Else
  End If
  Next c
[U]ActiveSheet.Shapes.Range(Array(m)).Select[/U]
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = ActiveSheet.Cells(col, 24).Interior.color
        .Transparency = 0
        .Solid
    End With

Next i
End Sub