تعديل كود حفظ

[السيد المصري]

ارجو المساعدة في تعديل كود حفظ ملف اكسل

اضع فيه مسار حفظ الملف

وكذلك لا يظهر مربع الحفظ بل يحفظ في المسار الذي حددته

With Application.FileDialog(msoFileDialogSaveAs)
    .AllowMultiSelect = False
    .FilterIndex = 2
    .InitialFileName = "B" & Range("b1").Text 
    If .show Then
             ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _
                                                 FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End If