Color tintand shade

[larrygreg]

Trying to change the colors of a range of cells. I am using the macro recorder to generate the code.

When I record the macro, I chose the color blue Accent 1 Darker 50. However when I choose that color and it looks good while I am recording it, the color the macro uses is blue accent 1 darker 25.

With Selection.Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = -0.499984740745262

End With

Very frustrating. I dont know what I am doing wrong

 

[onlyadrafter]

Hello,

are you sure you are checking the correct cell, it works fine for me. I change it to a completely different colour, then run your code, and it colours is with Darker 50%.