VBA to Colour Spreadsheet tabs

[Excelorate3305]

Is it possible to automatically colour spreadsheet tabs in a workbook using VBA? I would like to either:

a) set all tabs to white then have the worksheet tab I have selected automatically change to any colour, or
b) have coloured tabs in the workbook then have the worksheet tab I selected appear white or more boldly then how the other tabs appear.

Any assistance greatly appreciated.

 

[igold]

Or using what @Fluff put in Post #5

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sh.Tab.Color = RGB(255, 255, 255)
    ActiveSheet.Tab.Color = vbRed
End Sub

 

[Excelorate3305]

Thanks. Works great!!

 

[Fluff]

Glad we could help & thanks for the feedback.