ChDir ile Network üzerindeki klasöre kayıt etme

[burakturk]

Arkadaşlar merhaba,
Kendime otomatik raporlarımın çalışması için bir sanal sunucu oluşturdum ve bu sunucu üzerinde bazı otomatik raporlarım çalışıyor.
Bunlardan bir tanesi sayfadaki tüm verileri yeniliyor, bir dizin üzerine bağlantılarını kopartarak kayıt ediyor. Ancak bu dökümanı network üzerinde olan bir klasöre kayıt etmesini istiyorum. ChDir ile yaptığımda başaramadım. Nasıl yapabileceğim ile ilgili bana yardımcı olabilir misiniz? Mümkünse açıklayarak yardımcı olursanız çok sevinirim.

Not: bir kaç kaynakta farklı çözümler gördüm, denedim ancak başaramadım. Bilgisizliğimden dolayı olduğunu düşünüyorum.

Aşağıdaki kullandığım kod üzerindeki;
ChDir "C:\EXCEL" kısmını
ChDir "\\192.168.1.20\LISTELER" olarak güncellemek istiyorum, yani bu ağ üzerindeki klasöre kaydetmesini istiyorum.

Kullandığım VBA kodları şu şekilde;

Sub dosyayi_kaydet()
        Application.DisplayAlerts = False                                                                                         
        Sheets("MARKA").Select
            Cells.Select
            Range("AA:ZZ").Activate
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            ActiveSheet.Shapes.Range(Array("Button 1")).Select
            Selection.Delete
        Sheets("TÜMÜ").Delete
        Sheets("ÇOK SATILANLAR").Delete
        Sheets("MARKA").Select
        ChDir "C:\EXCEL"                                                                                  
            ActiveSheet.SaveAs Filename:=Date & " - LISTE.xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False                                                                       
                Dim xConnect As Object 
                For Each xConnect In ActiveWorkbook.Connections
                If xConnect.Name <> "ThisWorkbookDataModel" Then xConnect.Delete
                Next xConnect
        ThisWorkbook.Save
End Sub