Eu tenho uma planilha que, ao clicar em um botão, duplicará a si mesma copiando / colando tudo em uma nova pasta de trabalho e salvará o arquivo com um nome que depende de alguns valores de variáveis ​​(tirados de células na planilha). Meu objetivo atual é conseguir salvar a planilha em pastas diferentes, dependendo do nome do cliente (valor da célula mantido na variável), enquanto isso funciona na primeira execução, recebo um erro depois.

O código verifica se o diretório existe e o cria, se não. Isso funciona, mas depois que ele é criado, executá-lo pela segunda vez gera o erro:

Erro de tempo de execução 75 - erro de acesso ao caminho / arquivo.

Meu código:

Sub Pastefile()

Dim client As String
Dim site As String
Dim screeningdate As Date
screeningdate = Range("b7").Value
Dim screeningdate_text As String
screeningdate_text = Format$(screeningdate, "yyyy\-mm\-dd")
client = Range("B3").Value
site = Range("B23").Value

Dim SrceFile
Dim DestFile

If Dir("C:\2013 Recieved Schedules" & "\" & client) = Empty Then
    MkDir "C:\2013 Recieved Schedules" & "\" & client
End If

SrceFile = "C:\2013 Recieved Schedules\schedule template.xlsx"
DestFile = "C:\2013 Recieved Schedules\" & client & "\" & client & " " & site & " " & screeningdate_text & ".xlsx"

FileCopy SrceFile, DestFile

Range("A1:I37").Select
Selection.Copy
Workbooks.Open Filename:= _
    "C:\2013 Recieved Schedules\" & client & "\" & client & " " & site & " " & screeningdate_text & ".xlsx", UpdateLinks:= _
    0
Range("A1:I37").PasteSpecial Paste:=xlPasteValues
Range("C6").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

End Sub

Você terá que desculpar minha falta de conhecimento nesta área, eu ainda estou aprendendo. Eu tenho um sentimento muito forte que tem algo a ver com a lógica de verificação de diretório, como quando o erro é lançado oMkDir linha é realçada.