Macro para guardar archivo

Hace tiempo hice esta Macro espero que te sirva
Sub ActualizaFactura() 
    On Error GoTo Err_ActualizaFactura 
    Dim sNombreCliente As String 
    Dim sRutaParaLaCopia As String 
'Se almacena el nombre del cliente si es que no esta vacio 
    If Trim(Range("C4").Value) <> "" Then 
        sNombreCliente = Range("C4").Value 
        sRutaParaLaCopia = "C:\Facturas\" & sNombreCliente 
        nNumFolio = Range("F3").Value 
        ChDir sRutaParaLaCopia 
        ActiveWorkbook.SaveAs Filename:=sRutaParaLaCopia & "\Factura No" & nNumFolio & ".xls" _ 
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ 
        ReadOnlyRecommended:=False, CreateBackup:=False 
    Else 
        MsgBox "No ha escrito el nombre del cliente", vbCritical 
    End If 
Exit_ActualizaFactura: 
    Exit Sub 
Err_ActualizaFactura: 
    If Err.Number <> 0 Then 
        If Err.Number = 76 Then ' Esto sirve por si la carpeta no existe la crea 
            MkDir sRutaParaLaCopia 
            Resume 
        Else 
            MsgBox "Se produjo el error No " & Err.Number & " Descripción: " & Err.Description & " Originado por: " & Err.Source, vbCritical 
            Resume Err_ActualizaFactura 
        End If 
    End If 
End Sub