Este fórum está sendo desativado

[SandroLima]

Boa tarde, colegas do fórum.

Qual o erro no seguinte código:

Código: Selecionar todos

Sub Ativar_Desativar_Pendencias_AD()

    Dim TabelaAtividades As ListObject
    
    Set TabelaAtividades = wshAtividadesDiarias.ListObjects("TB_AtividadesDiarias")
    
    Application.ScreenUpdating = False
    
    With TabelaAtividades.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("TB_AtividadesDiarias[[#All],[Registro]]"), SortOn:= _
        xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
        .SortOnValue.Color = RGB(255, 235, 156)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    TabelaAtividades.Sort.SortFields.Clear
    
    Set TabelaAtividades = Nothing
    
    Application.ScreenUpdating = True
    
End Sub

Segue planilha para verificação.

[SandroLima]

PS: Alterei o código anterior pois estava apontando para outra coluna

O resultado pretendido é como aparece na "PLAN2".

Alguém sabe como proceder?