why doesn't code reset cell color back?

[rgouette]

Issue: vba code in worksheet won't revert a changed cells color back to 0(white) after removing the comment
Observations: code does set the desired cell colors to Yellow after inserting a comment, however removing said comment,
and re-activating the worksheet does NOT reset the color after deactivating/re-activating the worksheet.

Private Sub Worksheet_Activate()
   Dim rngComments As Range
   On Error Resume Next
   Set rngComments = Range("G2:I40").SpecialCells(xlCellTypeComments)
   On Error GoTo 0
   
      If Not rngComments Is Nothing Then
          rngComments.Interior.ColorIndex = 6
          Else
          rngComments.Interior.ColorIndex = 0
      End If
End Sub

Thanks,
Rich