Celula = Trim(Celula)
End If
Next Celula
End Sub

32. Atualizar todas as tabelas dinâmicas

Esta macro é simples, mas eficaz, ela atualiza todas as tabelas dinâmicas de
uma planilha.

Sub Refresh_PivotTables()
Dim pivotTable As PivotTable
For Each pivotTable In ActiveSheet.PivotTables
pivotTable.RefreshTable
Next
End Sub

33. Remover duplicatas em todas as abas

Esta é uma rotina para aplicar o tratamento de dados nas planilhas,
permitindo ao usuário remover as duplicatas de todas as abas.

Sub RemoverDuplicatas()
coluna = InputBox("Em qual coluna deseja remover duplicata de todas as
abas ?")
For i = 1 To Worksheets.Count
Worksheets(i).Select
ActiveSheet.Range("$" & coluna & "$1:$" & coluna &
"$9999").RemoveDuplicates Columns:=1, Header:=xlNo
Next
End Sub

34. Consolidar dados na primeira aba

Esta macro tem por objetivo consolidar todas as abas dos arquivos abertos em