Guru do Excel e Power BI

Fala champs!

tenho um código o qual no final da execução dele abre a janela salvar como:

Sub Salvar_Como()
'Salvar Como
Dim CaixaDialogo As FileDialog
Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)
With CaixaDialogo
.InitialFileName = "C:\"
.FilterIndex = 2
.SelectedItems.Item (1)
.Show
.Execute
End With

MsgBox ("Arquivo: " & NomeArquivo & "salvo com sucesso em: " & .InitialFileName), vbInformation, "Atenção"

End Sub

Gostaria que mostrasse o nome do arquivo no msgbox a depois o local o qual foi salvo

Obrigado!

coloca antes do end with

MsgBox "Salvo em " & .SelectedItems.Item(1)