guardar una hoja en una carpeta ya creada

[loza1993]

estoy realizando un programa de contabilidad y me tope con un problema,necesito que guarde una hoja determinada en una carpeta ya creada luego el mismo programa la reescribe y necesito que guarde la mismo hoja peor con un nombre diferente ya que no contiene los mismos datos

gracias.

[Pinta]

Buenas. Te pongo un ejemplo con la función GardaHoja enviado el nombre de la hoja y la ruta completa

S2

Sub Ejecuta()
    GuardaHoja "Hoja2", ThisWorkbook.Path & "\Guarda.xls"
End Sub

Private Function GuardaHoja(NombreHoja As String, Ruta As String)
    Application.ScreenUpdating = False
    Sheets(NombreHoja).Copy
    ActiveWorkbook.SaveAs Ruta
    ActiveWorkbook.Close
End Function