El código que uso actualmente es el siguiente:
RutaArchivo = "C:\Users\bu766pd\Documents\Auditorias\Liberty Fianzas\2017\3ER TRIM 17\Procesos" & "\"
NombreArchivo = "m_" & fianza & "_0917"
ActiveWorkbook.SaveAs Filename:=RutaArchivo & NombreArchivo & ".xlsm", FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close