Olá a todos, em uma planilha tenho a seguinte macro que funcionana muito bem no evento change da planilha, ocorre que ao altgerar para o evento calculate a macro retorna um erro: abaixo o código VBA da macro que uso
Dim celulas As Range
Set celulas = Range("PRODUTOS[QUANTIDADE EM ESTOQUE]")
'ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Active
If Not Application.Intersect(celulas, Range(Target.Address)) Is Nothing Then
ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort.SortFields.Add _
(Range("PRODUTOS[[#All],[STATUS]]"), xlSortOnCellColor, xlAscending, , _
xlSortNormal).SortOnValue.Color = RGB(255, 124, 128)
With ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
alguma luz?