To use, right click sheet tabview codecopy/paste thisSAVEtry it

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
Set MyRng = Target '.EntireRow
Application.EnableEvents = False
On Error GoTo end1
Application.Cells.FormatConditions.Delete
With MyRng
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ROW()=ROW(INDIRECT(CELL(""address"")))"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
.FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"Reteb" wrote in message
...
anyone know how to change the way that the current cell is highlighted?

Currently a white border is displayed around the cell. However, I am
trying
to find an alternative way of highlighting the cell for a partially
sighted
colleague. A different color for the current cell would be good, or a big
thick border in a contrasting color would do.

Any ideas?