Macro to set fill color dark blue and font color white

[howard]

I have tried to write code to set the fill color in N5:O5 to dark blue and the font color to white

When running the macro I get a run time error, "object does not support this property or method"

It would be appreciated if someone could correct my code

Sub FillColor ()
with Sheets ("Sales Data")
 .Range("N5:O5").Font.ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
end With
End Sub

I

 

[Rick Rothstein]

Try it this way...

Sub FillColor()
  With Range("N5:O5")
    .Interior.ColorIndex = 25
    .Font.Color = vbWhite
    .Font.Bold = True
  End With
End Sub

Note: I also made the font bold as I find it more readable that way. If you don't want that, just remove the last line of code inside the With..EndWith block.

 

[howard]

Thanks for the help Rick. Setting the font to be bold is ideal