VBA Excel - Checando se a célula faz parte de uma Tabela ou Lista - Checking to See Whether the Active Cell is in a Table or List

Termo de Responsabilidade

Muitas vezes, antes de executar outros comandos e funções, queremos garantir que a célula ativa esteja (ou não) em uma tabela ou lista. O código a seguir testa esta condição e exibe uma caixa de mensagem com os resultados.

Sub TestIfActiveCellIsInTable()

    Dim ActiveCellInTable As Boolean

    Dim ACell As Range

    'Set a reference to the ActiveCell named ACell. You can always use

    'ACell now to point to this cell, no matter where you are in the workbook.

    Set ACell = ActiveCell

    'Test whether ACell is in a table.

    On Error Resume Next

    ActiveCellInTable = (ACell.ListObject.Name <> "")

    On Error GoTo 0

    If ActiveCellInTable = True Then

        MsgBox "The ActiveCell is a part of a table."

    Else

        MsgBox "The ActiveCell is not a part of a table."

    End If

End Sub

Reference: 

Tags: VBA, Excel, cell, check, table, list