Macro changing font color to white instead of gray

Hello excel forum. I have what I think should be a fairly straightforward Marco, but when I run it, it changes the font color in the referenced cells white instead of dark gray. I deleted the macro I had recorded twice and recorded two additional times and each time I encounter the same issue.

Why doesn't the macro change the font color to dark gray as when I record it?

Attached is the sample worksheet with 2 macros. The "HIDE" button runs the macro that is operating correctly, which hides rows 65 and 66, and changes the font type in rows 63 and 645 from dark gray, unbolded, 10 point font to black, bold, 12 point font.

The Unhide button is supposed to run the macro that reverses what the first Macro did, so I've recorded it to unbold the data in rows 63 and 64, change the font size back to 10 and color from black to dark gray, and unhide rows 65 & 66. The macro does everything correctly, except it changes the font to white instead of dark gray.

Can anyone guide me to the solution to my problem?

Be Well,

Can anyone guide me to the solution to my problem?

Maybe, but it would be much easier if we could see your macros.
That's an .xlsx file you've posted.

sorry about that. attached is macro enabled workbook.

Better idea...... post the macros without the workbook.

FIRST, HERE'S THE MACRO THAT WORKS WHICH FIRST HIDES ROWS AND MAKES CHANGES AS RECORDED:

Sub Show_Subtotals_as_Totals()
'
' Show_Subtotals_as_Totals Macro
'

'
Rows("63:64").Select
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Rows("65:66").Select
Selection.EntireRow.Hidden = True
End Sub
Sub unhide_totals()
'
' unhide_totals Macro
'

'
Rows("64:67").Select
Rows("64:67").EntireRow.AutoFit
Rows("63:64").Select
Range("A64").Activate
With Selection.Font
.Name = "Calibri"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = False
Rows("63:64").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
End With
Range("D63").Select
End Sub

SECONDLY, HERE'S THE MACRO THAT ISN'T WORKING AS RECORDED:

Sub Show_Subtotals_as_Totals()
'
' Show_Subtotals_as_Totals Macro
'

'
Rows("63:64").Select
With Selection.Font
.Name = "Calibri"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Rows("65:66").Select
Selection.EntireRow.Hidden = True
End Sub
Sub unhide_totals()
'
' unhide_totals Macro
'

'
Rows("64:67").Select
Rows("64:67").EntireRow.AutoFit
Rows("63:64").Select
Range("A64").Activate
With Selection.Font
.Name = "Calibri"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = False
Rows("63:64").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
End With
Range("D63").Select
End Sub

Try changing the code to specify the specific color

Please Login or Register  to view this content.

Check this out for color numbers.

@Blokeman. Forgive my ignorance. I don't know what "code tags" are.

You should qualify which worksheet you want the code to operate on rather than use select.
I think the code below does what you want, is easier to understand & easier to change if you want to.
Cheers

Please Login or Register  to view this content.