IsCellHighlighted

Function IsCellHighlighted(cell As Range) As Boolean
    IsCellHighlighted = (cell.Interior.ColorIndex <> xlNone)
End Function