You want to use .Interior.ColorIndex = 3

put this in and run to see all the colors if you want.

Sub main()
For i = 1 To 50
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

Hello,

I have this code that enables users to change the font colour of
unlocked cells to red of a protected sheet without needing the
password:

Sub Macro2()
With Selection
ActiveSheet.Unprotect Password:="password"
With Selection.Font
.Color = -16776961
End With
End With
ActiveSheet.Protect Password:="password"
End Sub

How can I use this same code but format the background colour of a
cell to red rather then the font colour?

Thanks for all of your help!