Esto es para DAO, debes averiguar la versión de Excell que usas Set Bdd2 = OpenDatabase(App.path + "\cuadro104.xls", False, False, "Excel 8.0;") Se asigna a un recordset un rango de la hoja Set Aux2 = Bdd2.OpenRecordset("b5:k1000") Espero que esto sea el hilo que te haga desenredar el ovillo