Public Function myTabColor As Integer
MyTabColor = Application.Sheets(ActiveSheet.Name).Tab.ColorIndex
End Function