ændring af cellefarven hvis cellen får indhold eller der klikkes

Jeg har følgende kode:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("H3:H90")) Is Nothing Then
  Cancel = True
  With Target
  With .Interior
    .ColorIndex = 5
    .Pattern = xlSolid
    End With
  End With
End If
End Sub

Koden virker således at et klik på en celle i kolonne h bevirker at cellen farves blå.
Jeg vil gerne have den modificeret således at hvis farver i forvejen er blå, så vil cellen blive blank.
Hvem kan hjælpe?