Macro para guardar un archivo en ruta especifica VBA EXCEL

Tengo un tema con una macro ya que en el archivo que estoy realizando voy a sacar varios reportes y enviarlos por correo en automático, pero el tema es que cuando quiero guardar el reporte generado con anterioridad siempre me lo guarda en documentos, pero quiero que este en una carpeta que se llame reportes

rutadir = ThisWorkbook.Path & "\Reporte\CM\"

rutaxls = rutadir & "\" & nomfic & ".xlsx"
ActiveWorkbook.SaveAs Filename:=rutadir & nomfic & ".xlsx"

Esta es mi macro en la cual indico que siempre donde se encuentre el archivo principal, me lo guarde en /REPORTES/CM/, pero me lo guarda en doncuentos, no se si incluya que tenga office 2010