For Each Next

G

Greg

Hi,

I have 12 sheets and need to run For Each - Next loop only
on 9 of them.
How would I exclude 3 other sheets?

I can't amend sheet names ( or sheet code names).


TIA,

Greg
 
V

Vasant Nanavati

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "whatever" And ws.Name <> "whateverelse" _
And ws.Name <> "whateveragain" Then
'run your procedure
End If
Next
 
G

Glenn_Ray

You could also use casing. Would be easier to modify if new sheets ar
excluded.


Sub SheetMod()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case ws.Name
Case "--1st sheet to exclude--"
'Null
Case "--2nd sheet to exclude--"
'Null
Case "--3rd sheet to exclude--"
'Null
Case Else
*** code to modify other sheets ***
End Select
Next

End Su
 
Top