Excel VBA Макросы: Как узнать, выделен ли столбец целиком?

[Mostik]

Добрый вечер. Как узнать, выделен ли столбец целиком на листе?

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

Sub макрос()
    If Selection.Address <> Selection.Columns(1).Address Then
        MsgBox "Столбец не выделен.", vbExclamation
    Else
        MsgBox "Столбец выделен!", vbInformation
    End If
End Sub

[Mostik]

спасибо