How do I change color of active cell in Excel

L

lfletcher

I would like the active cell (cell I am currently working in) to be a
different color. Example: I am working in cell AD58 I would like for that
cell to be blue, then as I move through the sheet, the current active cell
would be blue.
 
D

Don Guillett

right click sheet tab>view code>insert this>SAVE
to use for only one cell change
Set MyRng = Target.EntireRow
to
Set MyRng = Target
=====
'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
 
D

David DeRolph

Can that be applied to the entire workbook rather than a single sheet? And,
is there a reference for the color codes? I see 33 yields a blue color,
which is what he wanted; it also changes the color of the border from black
to red.
 
D

Don Guillett

Instead of the sheet module, put in the ThisWorkbook module. Try color 34

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, 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
 
Top