Don't know if there is a way to expand/contract the scrollbar size
automatically but..............
ActiveWindow.TabRatio = x
With ratio being 0 (no sheets showing) to 1 (full width)
ActiveWindow.TabRatio = .5 will be half the width.
Note: if too many sheets not all will show in any case.
Gord Dibben MS Excel MVP