Remove Color of all Sheets tabs



Code:

Sub RemoveColorSheetsTabs()
    Dim mySheet As Worksheet
    For Each mySheet In ActiveWorkbook.Sheets
        mySheet.Tab.ColorIndex = xlColorIndexNone
    Next
End Sub


0 Responses:

Post a Comment