Guardar carpeta en servidor

Hola de nuevo, tengo una macro que intenta guardar una carpeta de mi C:\ en una carpeta de un servidor, la ejecuto pero no hace nada, está mal evidentemente pero ¿Qué está mal?

Sub Mueve_fotos()


Dim carpeta As String

Dim fecha As Date


fecha = Now(Format("dd-mm-yyyy"))

carpeta = "\\179.29.84.35\Pub-Water-Jet\REGISTRO VISUAL\"

Call Shell("explorer.exe " & carpeta, vbNormalFocus)


Name "C:\Seat\Historico\" As carpeta & fecha


End Sub[/CODE]