Проблема с файлом Excel VBA «сохранить как» в папке пользователя или на сетевом диске

Question

У меня проблема с сохранением файла через VBA в определенных каталогах. Если я использую папку с именем C: \ Test, она работает нормально. Однако, если я пытаюсь сохранить его в папке users \ me \ Documents или сетевой папке, у меня возникает ошибка. Обычно я могу сохранить в своей папке пользователя или сетевой папке при сохранении непосредственно из Excel. Следующий код - это то, что я использую для создания файла и сохранения версии перед запуском макроса. Есть ли лучший способ сделать это, чтобы иметь возможность хотя бы сэкономить на сетевом диске? Для дополнительной информации я пытаюсь сохранить на диске пользователя, но получаю сообщение об ошибке 1004, которое дает мне некоторые вещи, которые я не могу найти.

Например, я ожидаю, что путь будет C: \ Test \ Segname.xlsx, и он работает в каталоге test. Больше не работает нигде. Заранее спасибо.

Sub AddNew(NewBook As Object)
Dim newPath As Variant
Dim SegName As Variant

SegName = ThisWorkbook.Sheets("Settings").Range("D29").Value
newPath = ActiveWorkbook.Path & "\" & SegName

Application.DisplayAlerts = False

Set NewBook = Workbooks.Add
    With NewBook
        .Title = "Calculations Output"
        .Subject = "Sales"
        .SaveAs Filename:=newPath
        .Worksheets.Add().Name = "DATA"
    End With

Application.DisplayAlerts = True

End Sub