Step through sheets, but exclude one

[CLR]

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

 

[Chip Pearson]

Try something like

Sub AAA()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If StrComp(WS.Name, "XXXXXX", vbTextCompare) <> 0 Then
' WS is not the XXXXX worksheet. Do something with WS.
Else
' WS is XXXXX, do nothing.
End If
Next WS
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Gary Brown]

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

--
HTH,
Gary Brown
(e-mail address removed)
If this post was helpful to you, please select
''''''''''''''''YES'''''''''''''''' at the bottom of the post.

 

[CLR]

Thank you kind Sirs.............

My day is done here now but I shall try both suggestions over the
weekend......

Vaya con Dios,
Chuck, CABGx3