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

[Посетитель]

Как узнать, есть ли в активной ячейке заливка?

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

Sub Макрос()
   
    If ActiveCell.Interior.Pattern <> xlNone Then
        MsgBox "В ячейке есть заливка.", vbInformation
    Else
        MsgBox "В ячейке нет заливки.", vbInformation
    End If
   
End Sub

[Посетитель]

спасибо