Hola Adler, nuevamente gracias por el tiempo que estás dedicándome con tu ayuda.
He realizado los cambios para probar, pero ahora me sale, este error en el log:
238|800a0009|El_subíndice_está_fuera_del_intervalo
línea 238 : Select Case pagYancla(1)
gracias