saved colour

[aoc]

Dear All,

What should I do if I want below code run automatically whenever I open a new workbook ? And there is a problem. When I select a cell it is coloured If I save the file and close and reopen the cell is still coloured how can I prevent this ?

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3
OldRange.Interior.ColorIndex = xlColorIndexNone

Set OldRange = Target
End Sub

[Bob Phillips]

Put it in the Workbook_Open event.

[aoc]

Hi Xld,

I tried but I receive error when I open the workbook. I attached the file

[Bob Phillips]

You don't embed one event procedure within another.

Instead of



Sub WorkBook_Open()

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3
OldRange.Interior.ColorIndex = xlColorIndexNone

Set OldRange = Target
End Sub

End Sub

It should be



Private Sub WorkBook_Open()

Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 3
OldRange.Interior.ColorIndex = xlColorIndexNone

Set OldRange = Target
End Sub

[aoc]

Hi,

it does not work

[Aussiebear]

What error message do you receive?