Problema en Excell

[parmijo]

Lo que tengo yo es una Macro que se ejecuta con combinacion de Letras

Sub guardando()
'declaro la variable
Dim ruta As String
' elimino los mensajes
Application.DisplayAlerts = False

'asigno a la variable la ruta actual del libro
ruta = ActiveWorkbook.FullName

'Guardo el libro en la direccion especifica disco c:

ActiveWorkbook.SaveAs Filename:=c:\libro1.xls", FileFormat:=xlNormal

'Guardo el libro en la direccion de la variable
ActiveWorkbook.SaveAs Filename:=ruta, FileFormat:=xlNormal
' activo los mensajes
Application.DisplayAlerts = True

End Sub

Te aclaro cualquier duda