Ejecutar una macro dependiendo del usuario

Buenas tardes

De antemano les agradezco la colaboración que me puedan brindar. Tengo un libro en una carpeta compartida en Drop Box en donde se copian y pegan valores de otros libros, al ser usado por diferentes usuarios, la ruta para importar los datos varia según el nombre del ordenador por ejemplo:

Workbooks.Open Filename:="C:\Users\Daniel\Dropbox\Medio Ambiente\Bosa.xlsm"

sentencias.....

En este caso el nombre de mi ordenador Daniel, pero 8 usuarios mas también ejecutaran esta macro, y al ser el nombre de sus respectivos ordenadores distinto, generara un error.

Tengo el nombre de los ordenadores de todos los usuarios, pero no quiero crear un procedimiento para cada usuario sino que dependiendo del usuario seleccionado en un combobox se ejecute la macro, seria algo como esto:

Sub importar ()

Dim Usuario as String

If combobox= "Daniel Riberos" Then

Usuario= Daniel

End if

Workbooks.Open Filename:="C:\Users\Usuario\Dropbox\Medio Ambiente\Bosa.xlsm"

sentencias

End sub

Les agradecería si lo que planteo es completamente errado, o me pueden orientar con el tema.

Daniel Riveros

Añade tu respuesta

Haz clic para o