Diretorio(3) = " C:\Users\usuarioteste\Documents "

For i = 1 To 999

If Diretorio(i) = "" Then

GoTo RotuloSaida:

End If

Perg = MsgBox("Deseja salvar com o nome: " & NomeArquivo & " no

caminho: " & Diretorio(i), vbYesNo, "Salvar Arquivo")

If Perg = vbYes Then

ActiveWorkbook.SaveAs Filename:=Diretorio(i) + "\" + NomeArquivo

+ "." & Extensao

End If

Next i

RotuloSaida:

MsgBox "Arquivos salvados com sucesso"

End Sub

9. Quando fechar o arquivo informar o tempo gasto

Esta é uma macro muito comum para o controle de rotina do usuário, onde o

mesmo pode verificar o seu rendimento durante a utilização de uma planilha.

Obs1: É necessário incluir a macro dentro do objeto WorkBook.

Option Explicit