Speicher Makro klappt nicht

Public Sub Walter_C_Laufwerk_speichern()
Dim arbp, arbpwb, UserN, Name, NameW, VerzOrd As String
arbpwb7 = "F:"
arbp = "C:"
VerzOrd = "\#_Markisen-Aufträge\"
NameW = Worksheets("Auftragsbestätigung").Range("S1")
UserN = VBA.Environ("Username")
If VBA.Environ("USERNAME") = "LAPTOP" Then
ChDir arbp & VerzOrd
Application.DisplayAlerts = False              '  Warnung vor Überschreiben abschalten
ActiveWorkbook.SaveAs FileName:=arbp & VerzOrd & NameW
MsgBox "Es wurde im PC vom User:  " & Chr(13) & UserN & Chr(13) & "Laufwerk  > " & arbp  _
_
& "  " &  _
arbpwb _
& "