Для этого тебе нужно знать имя листа или его порядковый номер.
Заливка вкладок происходит по этому свойству.
Sheets("Штамп к ИС ВК-WB-19-158").Tab.ThemeColor = xlThemeColorAccent1
Заливка вкладок происходит по этому свойству.
Sheets("Штамп к ИС ВК-WB-19-158").Tab.ThemeColor = xlThemeColorAccent1