VBA Colors
'Macro to Check VBA Colors
Sub Macro2Color()
Range("A1").Font.Color = vbRed
Range("B1").Font.Color = vbGreen
Range("C1").Font.Color = vbYellow
Range("D1").Font.Color = vbBrown
Range("E1").Font.Color = vbPink
Range("f1").Font.Color = vbBlue
Range("G1").Font.Color = vbGrey
For i = 1 To 56
With Sheets("Color_Index")
.Cells((i + 1), 1).Font.ColorIndex = i
.Cells((i + 1), 2).Borders.ColorIndex = i
.Cells((i + 1), 3).Interior.ColorIndex = i
End With
Next i
For i = 3 To 5
Sheets(i - 2).Tab.ColorIndex = i
Next i
End Sub
Sub Macro2Color()
Range("A1").Font.Color = vbRed
Range("B1").Font.Color = vbGreen
Range("C1").Font.Color = vbYellow
Range("D1").Font.Color = vbBrown
Range("E1").Font.Color = vbPink
Range("f1").Font.Color = vbBlue
Range("G1").Font.Color = vbGrey
For i = 1 To 56
With Sheets("Color_Index")
.Cells((i + 1), 1).Font.ColorIndex = i
.Cells((i + 1), 2).Borders.ColorIndex = i
.Cells((i + 1), 3).Interior.ColorIndex = i
End With
Next i
For i = 3 To 5
Sheets(i - 2).Tab.ColorIndex = i
Next i
End Sub
Comments
Post a Comment