Отображение ярлыков листов средствами VBA

Sub()
Sub ShowSheets()
ActiveWindow.DisplayWorkbookTabs = True 'Отображаем ярлыки листов
ActiveWindow.TabRatio = 0.5 'Устанавливаем полосу прокрутки размером в                                                                                       'половину листа
End Sub