El siguiente código intenta tomar un libro de trabajo habilitado para macros (.xlsm), crear una carpeta con su nombre en el mismo directorio donde se encuentra el libro de trabajo y luego mover el libro de trabajo a dicha carpeta y cambiar su nombre.

 Dim xlsm_wb As Workbook Dim xlsm_path As String Dim xlsm_name As String Dim fold_path As String Set xlsm_wb = Application.Workbooks("repositorio nóminas.xlsm") xlsm_path = xlsm_wb.Path xlsm_name = xlsm_wb.FullName fold_path = xlsm_path & "\repositorio nóminas" Debug.Print xlsm_name Debug.Print fold_path & "\matenimiento.xlsm" MkDir fold_path <- Error 75 here Name xlsm_name As fold_path & "\matenimiento.xlsm" <- or here

Como puede ver, recibo el error 75 en la penúltima instrucción, y si lo comento e intento simplemente mover el .xlsm a la carpeta sin crearlo manualmente, también me da el mismo error.