Hi John

as far as i can tell - you're missing an END IF in the DO LOOP which is
confusing things.

Cheers
JulieD

"John Wirt" wrote in message
...
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