Problema macro que abre ficheros csv

Tengo un problema con una macro que abre ficheros csv, en principio sí lo abro desde el Excel las columnas están separadas y sale todo ok, pero desde la macro tengo un while para todos los ficheros csv y los abro set l1=workbook.open ruta+nombrefichero cuando copio y pego no me sapara las columnas.