Vba To Select Colored Tabs And Hide Empty Rows Within Range In Each Tab?

I need to select all yellow tabs (color code 6) in a workbook with over 70 tabs and hide all empty rows within A1:I36 on each of these yellow tabs. the position of the tabs needs to be unchanged (sorting by tab color not allowed). I got this code from another excel forum but somehow it only works when i select one yellow tab and run it and the code only works on the one yellow tab i selected. can fix this code so that it can loop through all tabs (yellow and non color) and do what i mentioned above for each yellow tab?

Sub HideMT()
Dim Ws As Worksheet
Dim wsColor As Long

[Code].....