Este fórum está sendo desativado

[NoelenPabline]

Muito boa noite,

Pessoal estou com este erro: erro no tempo de execução 1004 o metodo range do objeto global falhou, ele so aparece quando chega na linha para ordenar do menor para o maior,

segue meu codigo

Sub Relatorio_Saida()
'
' Relatorio_Saida Macro
'

'
Cells.Select
Selection.EntireColumn.Hidden = False
Range("E128").Select
ActiveSheet.ShowAllData
ActiveSheet.ListObjects("ENTRADA_SAIDA").Range.AutoFilter Field:=1, _
Criteria1:="="
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Columns("F:F").Select
Selection.EntireColumn.Hidden = True
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Columns("J:J").Select
Selection.EntireColumn.Hidden = True
Columns("R:R").Select
Selection.EntireColumn.Hidden = True
Columns("Z:Z").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 2
Columns("Y:Y").Select
Selection.EntireColumn.Hidden = True
Range("A126").Select
ActiveWorkbook.Worksheets("ENTRADA-SAIDA").ListObjects("ENTRADA_SAIDA").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("ENTRADA-SAIDA").ListObjects("ENTRADA_SAIDA").Sort. _
SortFields.Add Key:=Range("ENTRADA_SAIDA[[#Headers],[#Data],[DATA]]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ENTRADA-SAIDA").ListObjects("ENTRADA_SAIDA"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D6").Select
End Sub

[DJunqueira]

Vou dar o PALPITE q o erro pode estar relacionado com o ocultamento das colunas.