Excel : exite ruta + macro

Buenas,
Estoy utilizando esta macro y me gustaria que se ejecutara una macro "x" solo y solo si existe la carpeta. En caso que no exista, que no hiciera nada.
os paso la macro que he recuperado de otro foro, llevo mil y un intentos y se donde poner el condicionante, mil gracias!!!
Dim FSO As FileSystemObject
Sub comprobar_ruta()
'Aquí hice la prueba
MsgBox ExisteRuta("\\nas\00_administracion")
End Sub
Public Function ExisteRuta(ByVal sruta As String) As Boolean
On Error GoTo Err_ExisteRuta
Set FSO = New FileSystemObject
ExisteRuta = False
If Trim(sruta) = "" Then Exit Function
If FSO.FolderExists(sruta) Then ExisteRuta = True
Set FSO = Nothing
Exit_ExisteRuta:
Exit Function
Err_ExisteRuta:
MsgBox "Excepción encontrada " & Err.Description & " Generada por: " & Err.Source, vbInformation, Application.Name
End Function