Hello Michael

pls try this:

    Dim strPath As String, strServer As String
    
    strServer = "\\111.222.333.444\DATA\" '= Z:\
    
    strPath = ActiveWorkbook.Path & "Pre-Alert AT\PPS AT\" ' including \ at the end
    
    strPath = strServer & Mid(strPath, 4)
    
    
    ActiveWorkbook.SaveAs strPath & Format(Now(), "YYYY-MM-DD") & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Greetings UweD