Definir lugar de guardado de libro Excel 2002

Hola ! Uso Excel 2002. Tengo la siguiente macro (modificada de la provista por luismondelo)

Sub ejemplo()
nombre = Day(Date) & "_" & Month(Date) & "_" & Year(Date)
ActiveWorkbook.SaveAs nombre

End Sub

La misma guarda el archivo en la carpeta Mis Documentos. Ahora bien, el lugar de destino debe ser una carpeta compartida en la red del trabajo (por ej.: \\192.168.1.7\Ges Doc Aut\Bolso ) Que lo que debo modificar para lograr esto ?

Muchas gracias!