If Sheets(i).Name < "XXXYYYZZZ" Then
Call MyTaskCode
End If

--
HTH,
Gary Brown

If this post was helpful to you, please select
''''''''''''''''YES'''''''''''''''' at the bottom of the post.



"CLR" wrote:

Hi All.........

I use code similar to the following to step through all the sheets in a
workbook and perform a certain task thereon. It works fine, except that I
would like for the sheet named XXXYYYZZZ to be left alone and the
operation(s) NOT performed thereon. How might I exclude just that one sheet,
yet perform all the operations on all the other sheets?

Dim sh As Object
Dim i as long
i = 0
For Each sh In Sheets
i = i + 1
Sheets(i).Select
Call MyTaskCode

next

TIA for suggestions

Vaya con Dios,
Chuck, CABGx3