Merhaba
Öncelikle Vba editöründen Tools-References Kısmından,
Microsoft Office XX Object Library (Buradaki XX Ofis versiyonudur 12.0, 14.0 veya 15.0 olabilir)
Daha sonra aşağıdaki kodu belirtilen yere ekleyiniz.

'vbBook.SaveAs



    Dim DosyaKayit As FileDialog

    Set DosyaKayit = Application.FileDialog(msoFileDialogSaveAs)

    With DosyaKayit

        .InitialFileName = "C:\Kitap1.xlsx"

        .Show

    End With



vbExcel.Quit

Set DosyaKayit = Nothing