switch on the macro recorder
then from the menu

Format / Styles / Modify / Patterns
choose a color
ok everythinmg then stop the recorder
look at the code
what you need will end up like this:

Sub Macro1()
With ActiveWorkbook.Styles("Normal").Interior
.ColorIndex = 36
.PatternColorIndex = xlAutomatic
.Pattern = xlSolid
End With
End Sub

"Drew" wrote:

I am a VB beginner and am looking for some code that I could use to change
cell shading from tan for all appliable cells in all of the worksheets to
blue font. Does anyone have a script that I could use?

Thank You!
--
Drew