Selecting Sheets

I am looking to write a Macro that selects all the sheets in a given workbook and sets their Zoom to 100%. This is what I tried thus far, but for somereason, this only works on the first sheet of any given workbook, it doesn't run on the rest of the sheets. Any help is appreciated.

Sub ZoomReduce()
For Each sht In Sheets
ActiveWindow.Zoom = 100
Next sht
End Sub

Sub ZoomReduce()
For Each sht In Sheets
sht.Select
ActiveWindow.Zoom = 200
Next sht
End Sub