Boa tarde,Andersonrj.

Tenta algo assim:

Sub Exportar()

Dim Arquivo As String

Arquivo = Application.GetSaveAsFilename(InitialFileName:="Nome_do_Seu_Arquivo_", _ ' PRE DEFINIÇÃO DO NOME A SER SALVO
                fileFilter:="CSV (Separado por vírgulas) (*.csv), *.csv", _ ' DEFINE A EXTESAO A SER SALVO O ARQUIVO
                Title:="Especifique o nome do arquivo") ' TITULO DA CAIXA DE DIALOGO

' SE CLICAR NO BOTAO CANCELAR FINALIZA O PROCESSO
If VBA.LCase(Arquivo) = "falso" Then Exit Sub

' ###
' SEU CÓDIGO DE SALVAR
' ###

End Sub

Pessoalmente eu faria isso tudo automatizado,ou seja um nome pre definido e uma pasta unica, assim vc evita erros de digitação e todos os relatorios tera o mesmo padrao, tanto de nome qto de formato.

Da ate pra salvar um xlsx independente se desejar.