Worksheet Looping Not Working

I pulled to follow code off the Microsoft site.

[URL]....

The problem I'm having is that the code isn't actually looping through the workbook - it's replaying over and over again on the same worksheet. I figure this is an easy fix but this figure is as useful as dog clues to ants.

Sub WorksheetLoop2()

' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets

A bunch of page formatting. Unmerge, cut, paste etc.

Next
End Sub