Tengo una hoja de cálculo que al hacer clic en un botón se duplicará copiando / pegando todo en un nuevo libro de trabajo y guardando el archivo con un nombre que depende de algunos valores variables (tomados de las celdas de la hoja de cálculo). Mi objetivo actual es lograr que guarde la hoja en diferentes carpetas dependiendo del nombre del cliente (el valor de la celda se mantiene en la variable), mientras esto funciona en la primera ejecución, recibo un error después.

El código comprueba si el directorio existe y lo crea si no. Esto funciona, pero después de crearlo, ejecutarlo una segunda vez arroja el error:

Error de tiempo de ejecución 75 - ruta / error de acceso al archivo.

Mi 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

Tendrás que disculpar mi falta de conocimiento en esta área, todavía estoy aprendiendo. Tengo la fuerte sensación de que tiene algo que ver con la lógica de comprobación de directorios, como cuando se produce el errorMkDir La línea está resaltada.