Formatting cell in same row as active cell, then reset format on row selection change

Hello,

I have the following code, which will format the cell in column D of the same row of the active cell, changing the font to bold and color to red. This works, except when another cell is selected in a differet row, I need to reset the format of the column D cell that was just changed. How do I reset the format of that cell (bold=false, color=black)?

Any help would be much appreciated!


Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ActiveCell
        Cells(Application.ActiveCell.Row, 4).Select
        Cells(Application.ActiveCell.Row, 4).Font.Bold = True
        Cells(Application.ActiveCell.Row, 4).Font.Color = -16776961
    End With

End Sub