Finalizo y si algo aparece (hasta ahora nada) te avisare via e-mail, pero tengo algo que "preguntarte"
¿Será posible que solo era lo que vi en el modulo1? sobre la intentar el formato de celdas incorporado al With Sheets ("Datos") y quitándole el Select?
.Range("I" & i & ",N" & i & ",O" & i).NumberFormat = _ "_ ""Bs.F"" * #,##0.00_ ;_ ""Bs.F"" * -#,##0.00_ ; ;_ @_ "
Como sabes yo no entiendo eso de programar código pero uno queda asombrado con cosas tan pequeñas y tan grandes para mi.
Te doy las gracias nuevamente.
Mañana por la tardecita nuevamente haciendo pruebas a ver si todo va bien (creo que si)
Ahora me voy a castigar el colchón, pues mañana lunes dia de comenzar semana a trabajar y los 65,5 ya están comenzando a pesar jejejejej