Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, retorna o endereço células AutoFiltro aplicado
o AutoFiltro por Ex: se estiver visível o autofiltro - msgbox retorna 
Ex:    $A$1:$F$1
 
Sub AutoFiltro_Retorna_Endereco_Aplicado()
 
    With ActiveSheet
        If .AutoFilterMode = True Then
            MsgBox .AutoFilter.Range.Address
        Else
            MsgBox "AutoFiltro não esta aplicado"
        End If
        End With
 
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel