Macro para crear copias con el nombre de una celda y conservar el original

Tengo una macro que se detiene en la fila once (11) y no puedo encontrar el motivo, reclama que la carpeta destino no se encuentra, siendo que esta macro debe crearla con el nombre nuevo y dejarla en la Carpeta destino.

Sub GenerarArchivoCopia()

Dim Origen As String

Dim Destino As String

Dim Tim As String

Dim NombreArchivo As String

If Sheets("TRB_ACR_FOR").Range("C68") = "Grabar" Then

Origen = "ORM.xlsm"

NombreArchivo = Sheets("TRB_ACR_FOR").Range("A1").Value

Tim = Format(Time(), " hh-mm-ss")

Destino = "C:\Users\Pablo\Desktop\Prueba\" & NombreArchivo + Tim & ".xlsm"

Workbooks(Origen).SaveCopyAs Destino ' Esta parte es la que no funciona

End If

MsgBox "ORM Guardado"

Call LIMPIAR

End Sub

He creado las mismas carpetas de destino y Origen, pero, no se porque nu funciona.