Save as dialog only once in a loop

[urobee]

Hy guys,

I have some files in a loop.
My macro opening them one by one make some modification than save.
Right now the save as function works like this:

.....
Path = "C:\test\"                FileName = 1 & ".xlsx"
                ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook
.....

I would like to select the folder to save the files with the Save As dialog box.
I tried this, but the dialog box appears with every new file:

Dim SvName as String


SvName = "1"


Application.Dialogs(xlDialogSaveAs).Show SvName

Is it possible to make a macro where the dialog box appers only once?
Thank You!