Move the TOC scroll

[LopeLorenzo]

I would like to move down the scroll just to show a layer selected (but I don't want to move the layer up in the TOC tree, I would like to preserve its position layer(x)).

Is it possible to get it using VBA?

thanks in advance.