Este fórum está sendo desativado

[DiegoMatos]

Amigos,

Preciso do auxilio na planilha em anexo, preciso que ela Salve Como, com o nome que está na célula H1, porém abra a caixa para eu informar em qual pasta esse arquivo deve ser salvo.

Um abraço,

Diego

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ExibeCaixaDiálogoSalvarComo()
  With Application.FileDialog(msoFileDialogSaveAs)
  .FilterIndex = 2
  .InitialFileName = [H1]
  .Show
  .Execute
  End With
End Sub

[DiegoMatos]

Obrigado Osvaldo, funcionou perfeitamente!