VBA To Change All Tab Colors?

How to change the color of a single tabe. What I'm trying to do now is reset the tab color for all tabs.

Here is my code:

'REMOVE TAB COLOR
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ActiveWorkbook.ActiveSheet.Tab
.ColorIndex = xlNone
.TintAndShade = 0
End With
On Error Resume Next
Next ws

I'm new to using loops so I'm not exactly sure what the above code is doing. When I debug it goes through the steps without any errors but it doesn't actually change the tab colors.