'Subtração para saber o tempo total de execução da macro
tDif = tf - ti
MsgBox "Tempo de processamento: " & WorksheetFunction.text(tDif,
"HH:MM:SS")
End Sub

30. Copar e colar valor em todas as abas

Macro utilizada comumente para gerar saída de dados para outros
departamentos ou usuários.

Sub PassarValor()
pergunta = MsgBox("Esta macro converterá todas as células para valores,
deseja continuar ?", vbYesNo)
If pergunta = vbYes Then
For i = 1 To Worksheets.Count
Worksheets(i).Select
If Worksheets(i).Visible = False Then
Worksheets(i).Visible = True
End If
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("A1").Select
Next
End If
End Sub

31. Remover espaços em branco dentro das células

O objetivo desta macro é remover os espaços em branco dentro das células,
para tanto, basta selecionar as células desejadas e rodar a macro.

Sub RemoverEspacos()
Dim Celula As Range
For Each Celula In Selection
If Not IsEmpty(Celula) Then