Excel VBA Макросы: Как узнать, есть в ячейке заливка УФ или нет?

[Bar]

Как узнать, есть в ячейке заливка, сделанная условным форматированием (УФ), или нет?

[Администратор]

Для Excel 2010+:

Sub Макрос()

    If ActiveCell.DisplayFormat.Interior.ColorIndex = xlColorIndexNone Then
        MsgBox "В ячейке нет заливки УФ.", vbInformation
    Else
        MsgBox "В ячейке есть заливка УФ.", vbInformation
    End If

End Sub

В старых версиях такой возможности нет и чтобы узнать, есть заливка УФ или нет, нужно чтобы макрос сделал такие же действия, какие делает УФ, и принял решение.

[Bar]

Спасибо большое.