Return the fill color after save

[noelmus]

Hi,
I have this code (below) that remove the fill color after update those 5 cells. I need that when I save the worksheet, those 5 cells return with the fill color. Is this possible?

Code:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("J9,J12,C14,E28,E29")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

Thanks in advance

 

[Yongle]

1. Place in ThisWorkbook module (NOT standard or worksheet module)
2. Amend sheetname

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("[COLOR=#ff0000][I]SheetName[/I][/COLOR]").Range("J9,J12,C14,E28,E29").Interior.ColorIndex = 6
End Sub

 

[noelmus]

Hi Yongle,
Fantastic job

Thanks a lot

 

[Yongle]

thanks for feedback