Microsoft Office Forums - View Single Post - VBA code to assign color to an active worksheet

Logit · 03-02-2017, 01:39 PM

This is one way to do it. I'm certain there are others.

Paste this into the sheet level module of the sheet you want to 'color'.
You can change the vbColor should you want one sheet colored different from the others.

Code:

Option Explicit

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With Application.ActiveSheet
    Cells.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .Color = vbYellow    '<-- change color here
        .PatternTintAndShade = 0
    End With
End With
Application.ScreenUpdating = True
End Sub