Get Open Filename abre en otra ubicación

Tengo una sentencia GetOpenFilename que en mi trabajo funciona perfectamente es decir abre la carpeta del path indicado en "ChDir" pero en mi casa abre el directorio por defecto de excel (que es otro por supuesto). ???
La sentencia sencillamente es esta:
ChDir "D:\Impu\Pdtes"
Filter = "Text Files (*.xls),*.xlx,"
Title = "Seleccione un Archivo excel para abrir"
With Application
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
End With