Track Changes Formatting (Colors, Borders, etc.)

[CT Witter]

I have enabled the track changes feature for my excel sheet and I am looking to do the following:

Modify the highlight color that excel uses. Many times it uses a color that is very hard to read.

What may be even better is to allow a pattern color to be set in the background.

How would I go about coding something like this? Is there a property that tells me that the cell has been modified?

Thanks,
CT

 

[CT Witter]

I took another look at it and have come up with the following solution:

Sub HistoryColor()
Dim varsheet
Dim varrange
Dim Rng As Range
Dim c As Range
Dim varcolor

varcolor = InputBox("Select a Color Index Number.", "Color Selector", 6)
Application.ScreenUpdating = False
Sheets("History").Activate

Set Rng = Range("E1:E" & Range("E65536").End(xlUp).Row)
For Each c In Rng
If c.Value = "Cell Change" Then
varrange = c.Offset(0, 2).Value
varsheet = c.Offset(0, 1).Value
Sheets(varsheet).Activate
Range(varrange).Activate
With Selection.Interior
.ColorIndex = varcolor
.Pattern = xlSolid
End With
End If
Next c
Application.ScreenUpdating = True
End Sub

Maybe someone else has had the same problem.

CT