Color Hundreds of Sheet Tabs in One Step in Different Colors

To Download the  exercise File and Follow along click Here

A picture containing clipart Description automatically generated




Here is the Code

Sub ChangeColors()

Dim WS As Worksheet

Dim IndexColor As Long

IndexColor = 50000

For Each WS In Worksheets

WS.Tab.Color = IndexColor

IndexColor = IndexColor + 50000

Next WS

End Sub

Steps will be posted soon



Watch the Video

Share This Post
Have your say!
1 0
  1. Mr. Nabil, you are an excellent instructor, that we have never seen like you before.
    God bless you

    • Thank you Mohammed
      Truly appreciated


Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

SUBSCRIBE To Our Emailing List And Receive 3 FREE Gifts...Now

Receive 3 Instant Free Gifts  When Subscribing to our newsletter here below
Two Books( Excel Pivot Tables - Dynamic Charts) and The Magical Shortcuts Quick Reference Card Showing 78  easy to remember Shortcuts.