How do I get this subtoutine to work with “option explicit” enabled?

Question

This subroutine is from a book I am reading. It only works when "option explicit" is not enabled:

Sub Test()
    For Each sheet In ActiveWorkbook.Sh