This procedure produces the error "Do loop without Do? How come?
- - - - -- - - - - - -
Public Sub HideSelectedSheetsOLD()
Dim Wsh As Worksheet
Dim Counter As Integer

For Each Wsh In ActiveWorkbook.Sheets
Counter = 7
Do
If UCase(Intersect(Wsh.Columns(Counter), Wsh.Rows(1))) = "HIDE"
Then
Wsh.Visible = xlSheetHidden
Counter = Counter + 1
Loop Until Counter = 26
Next

End Sub
- - - - - - - - - -
John Wirt