o problema é que ele sempre da aquele erro dizendo que o nome do campo não é valido
que problema pode ser?
CODE Sheets("dados").Select Range("J15").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Range("a1").Select Selection.End(xlDown).Select l = Selection.Offset(1, 0).Select l = ActiveCell.Row Dim b As String b = "C:\Users\Administrador\Desktop\[pedidos a vista.xls]pedidos!L1C1:L" & l & "C9" Sheets("tabela").Select Range("C17").Select ActiveSheet.PivotTables("Tabela dinâmica1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ b, Version:=xlPivotTableVersion10)