dim xcolor as string = worksheet.tabcolor.tostring
xcolor = RED (if the tabcolor is red)
Dim xcolor as Integer = Sheets("Sheet1").Tab.ColorIndex '3=Red , 4=green,5=blue,6=yellow,etc... If xcolor = 3 Then 'do something End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)