Cambiar Directorio

Hola buenas noches tengo esta macro


Private Sub Workbook_Open()

If ThisWorkbook.Path = "C:\Datos\Excel" Or ThisWorkbook.Path > "D:\Datos\Excel" _
Or ThisWorkbook.Path = "E:\Datos\Excel" Or ThisWorkbook.Path > "F:\Datos\Excel" _
Or ThisWorkbook.Path = "G:\Datos\Excel" Or ThisWorkbook.Path > "H:\Datos\Excel" _
Or ThisWorkbook.Path = "I:\Datos\Excel" Or ThisWorkbook.Path > "J:\Datos\Excel" _
And ThisWorkbook.Name = "Presupuesto.xls" Then
Else
Sheets("Hoja2").Select
Range("B3").Select
Else
MsgBox "Este usuario no esta autorizado para usar el Archivo",
vbOKOnly + vbCritical, "Error de Inicio"
End If
End Sub


Pero resulta que como el archivo se encuentra en un servidor y dependiendo
de la ubicacion cambia la unidad,

Existe una forma de especificar cualquier unidad comodin como p.e. ? *,
teniendo encuenta la ruta de la carpeta.

gracias de antemano

nelsonb