Macro para Guardar un archivo que el nombre cambie

A ver si te vale este código:
Sub Guarda()
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Date, "dd-mm-yyyy ")
tim = Format(Time(), " hh-mm")
ext = ".xls"
nom = dia + tim & ".xls"
MsgBox "este es nombre del nuevo archivo Excel: " & nom
Path = "C:\" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
End Sub
Asignaselo a un botón, al pulsar en el copia el libro en C: dándole el nombre de fecha y hora, pro con un formato dado, ya que no valdría el que toma por defecto y que no valen caracteres especiales como /,, :, etc.

Excelente amigo
Pero tengo un duda como hago para indicarle la ruta donde quiero que me guarde el archivo, por que he tratado de cambiársela pero no lo guarda nada en la ruta que le indico.
Gracias
FG

Introduce un input para establecer Path, teniendo en cuenta que luego solo debes introducir en el input, la ruta ya que el nombre de archivo lo pone el programa.
El código completo y reformado quedaría así:
Sub Guarda()
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dim ruta as string
dia = Format(Date, "dd-mm-yyyy ")
tim = Format(Time(), " hh-mm")
ext = ".xls"
nom = dia + tim & ".xls"
ruta=inputbox("escriba la ruta completa :",vbQuestion,"Ruta")
MsgBox "este es nombre del nuevo archivo Excel: " & ruta &"\" & nom
Path = & ruta &"\" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
End Sub