Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
finalrow = Cells(Rows.Count, 1).End(xlUp).Row

If Not Application.Intersect(ActiveCell, Range("A9:A" & finalrow)) Is Nothing Then
 If Target.Font.Color = vbRed Then
     Target.EntireRow.Font.Color = vbBlack
 Else
     Target.EntireRow.Font.Color = vbRed
 End If
End If
Cancel = True
End Sub