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.

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