Favor ayuda con un código para una macro

Expertos favor su ayuda tengo un código en una macro que busca archivo en una carpeta especifica, pero quisiera que esta búsqueda la condicionara una celda, es decir que en la celda A4 aparezca un lista desplegable y según lo que el usuarios seleccione se dirija a la carpeta correspondiente.-

Application.ScreenUpdating = False
'rescatamos los datos de la carpeta traspaso'
ChDir "D:\traspaso"
arch = Dir("*.*")