While this doesn't resize the scroll bar to make all tabs visible, it will
force the activesheet's tab to be visible...

ActiveWindow.ScrollWorkbookTabs , ActiveSheet.Index

I'm not sure if you can use this or not.

Rick

"Sandy" wrote in message
...
I have a workbook with eight visible sheets. The horizontal scroll has been
resized to allow all tabs to be visible - however when code is run on sheet
8 "Search Rounds" the first three sheet tabs disappear to the left.

They can be easily made visible by clicking on the 'Navigation' buttons -
so it is just a minor niggle - but is there any way to force all tabs to
be visible at all times? I suspect if there is it will be thro VBA.

Thanks
Sandy