Hallo,
geht so wie du es möchtest nicht, könnte aber so funktionieren
Sheets("Kolli").Copy
ActiveWorkbook.SaveAs Filename:=""\\Fileserver\Alle\LICO\NEUE\" & "KW_" & I29 & "_NR_" & D18 & "_" & F7 & "_Kolli .xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
ist so ungetestet, da ich die Pfade nicht nachbauen kann
Gruß
Helmut