ACTIVE PAGE TAG COLOR

Hello,
I want a method to change the color of the active marker on the page. It will be better if it is possible to do this with VBA.
Any suggestion will be gratefully received.
Greetings!