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.