subíndice fuera de rango VBA

on error resume next 
-yourcode - 
on error goto 0
Amused Armadillo