Erro de tempo de execução 1004 involing Date

Question

Estou trabalhando para que essa macro de nome de arquivo funcione e continue recebendo um erro. A macro é a seguinte ...

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

A última mensagem de erro foi um erro de runtime 1004 informando que a Microsoft não pôde acessar o arquivo 'C: Usuários \ Usuário mestre \ Documents \ Registro de inspeção de propriedade Regency 808N 07 \ 06 \ 791B8200'

Qualquer ajuda com este erro seria muito apreciada ....