Ошибка выполнения 1004 с указанием даты

Question

Я работаю, чтобы этот макрос Filename работал и продолжал получать ошибку, макрос выглядит следующим образом ...

Sub Sheet_SaveAs()

    Dim wb As Workbook

    Sheets("Sheet1").Copy

    Set wb = ActiveWorkbook

    With wb
        .SaveAs Filename:=Sheets("Sheet1").Range("A1").Value & " " & Sheets("Sheet1").Range("A4").Value & " " & Sheets("Sheet1").Range("A6").Value & " " & Sheets("Sheet1").Range("A8").Value & " " & Format(Date, "mm-dd-yy")
        .Close False
    End With

End Sub

Последнее сообщение об ошибке было ошибкой 1004 во время выполнения, в которой говорилось, что Microsoft не может получить доступ к файлу 'C:Users\Master User\Documents\ Regency Report Property Regency 808N 07\ 06\ 791B8200'

Любая помощь с этой ошибкой будет высоко ценится ....