VBA Code for Font Color =

[Justinian]

I have some basic code below to automatically highlight a row a predetermined cell color after a double click. How do I modify this code to also change the font to bold white?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
Target.EntireRow.Interior.ColorIndex = 15
Else
Target.EntireRow.Interior.ColorIndex = xlNone
End If
End Sub

 

[ranman256]

start recording a macro,
select row and turn it bold & white
stop recording macro
edit macro,
take that code and put it in with your code.
(you may have to alter the target row to : selection.entirerow
or Activecell.interior…)

 

[Justinian]

I already tried that and it did not work because this code above was written whereas the macro recorded code is different (see example):

Range("C18").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With

 

[MARK858]

Try....

    If Target.Interior.ColorIndex = xlNone Then
        With Target.EntireRow
            .Interior.ColorIndex = 15
            .Font.ColorIndex = 2
            .Font.Bold = True
        End With
    Else
        Target.EntireRow.Interior.ColorIndex = xlNone

 

[Justinian]

That works but I cannot double click again to remove the highlighting (as I could previously).

 

[MARK858]

Sorry, there was a typo in the code, see the edited code in the previous post

 

[Justinian]

Ah, that works! Thank you!