Border around cell that hover over

[KCrawford]

So my sister has an eye degenerative disease and has a hard time seeing the green highlighted border of a cell in Excel when hover over or clicked on on comparison to the black borders of the rest of the cells. Is there a way she change change.the colors so she can better see them?

 

[Worf]

Welcome to the Board

This code highlights the active cell differently:

Dim old As Range, st As Boolean


' this code goes at ThisWorkbook module <--------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Target.BorderAround , xlThick, 3
Target.Interior.Color = 10040319
If st Then
    old.Borders.LineStyle = xlNone
    old.Interior.Color = xlNone
End If
Set old = Target
st = True
End Sub


Private Sub Workbook_Activate()
st = False
End Sub