Mam utworzony skrypt, który tworzy nowy arkusz, oraz nową kartę w tym arkuszu, przed zmianą nazw wymienionych kart, chcę, aby Arkusz1 do Arkusza4 był czerwony.

With wbBK2.Sheets(wsWS1).Tab
    .Color = 255
End With

Teraz powyższy kod działa dla poszczególnych kart, ale zastanawiam się, czy istnieje sposób na zmianę wszystkich czterech kart w tym samym czasie przy użyciu Excel VBA?

Dzięki.