Colour Tab when selected

[rhombus4]

I have a lot of tabs and sometimes it is difficult to see clearly which tab is highlighted

Any idea of a code where I could add which would make the colour of the tab selected a colour, doesnt really matter which colour just so it is easy to identify which tab the user is on

Thanks

 

[VoG]

Try this: press ALT + F11 to open the Visual Basic Editor, in the Project window double click ThisWorkbook and paste in

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
For i = 1 To Me.Worksheets.Count
    Sheets(i).Tab.Color = xlNone
Next i
Sh.Tab.Color = RGB(255, 0, 0)
End Sub

N.B. this will only work in Excel XP and later.

 

[shg]

The tab of the selected sheet is white. You can right-click the other tabs and make them most any color you like.

 

[rhombus4]

Try this: press ALT + F11 to open the Visual Basic Editor, in the Project window double click ThisWorkbook and paste in

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
For i = 1 To Me.Worksheets.Count
    Sheets(i).Tab.Color = xlNone
Next i
Sh.Tab.Color = RGB(255, 0, 0)
End Sub

N.B. this will only work in Excel XP and later.

Thankyou