Excel - AUTOGUARDADO

Hola, necesito crear una macro para que al abrir un documento .xls si este está ubicado en una determinada carpeta, por ejemplo "c:proyecto" se ejecute un formulario en el que escribiré el nombre del subdirectorio en el que quiero almacenar una copia y a continuación se termine el proceso autoguardando el fichero en la carpeta especificada, la cual será necesario crear. pero si este fichero no está ubicado en "c:proyecto" no se ejecute el proceso.

Es decir que si abro "basica.xls", y este libro está ubicado en "c:proyecto" se abrirá un formulario en el que introduciré el nombre de la subcarpeta que se debe crear en windows, por ejemplo "oficina" y finalmente se almacenará una copia en "c:proyectooficinaasica.xls"

Espero haberme explicado correctamente.

Private Sub CrearCarpeta()
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo nohaycarpeta
Set F = fs.getfolder("C:PROYECTOOFICINA")
ActiveWorkbook.SaveAs Filename:="C:ProyectoOFICINACopiaBasica.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub

nohaycarpeta:
Set F = fs.CREATEfolder("C:PROYECTOOFICINA")
Resume Next
End Sub

Espero que te sirva mucho

Un saludo
SCM

Private Sub CrearCarpeta()
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo nohaycarpeta
Set F = fs.getfolder("C:PROYECTOOFICINA")
ActiveWorkbook.SaveAs Filename:="C:ProyectoOFICINACopiaBasica.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub

nohaycarpeta:
Set F = fs.CREATEfolder("C:PROYECTOOFICINA")
Resume Next
End Sub

Espero que te sirva mucho

Un saludo
SCM

Muchas gracias, pero sólo un matiz más, si el fichero ya existe en la ruta especificada me salta una ventana típica preguntando si deseo sobreescribirlo o no, sin embargo me gustaría que esta ventana no apareciera, sino que se sobreescribiera el fichero (en el caso de que ya exista) siempre, sin hacer la consulta.