For Each Next

[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

 

[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

 

[Don Guillett]

for each ws in worksheets
if ws.name<>"name1" and ws.name<>"name2" etc

 

[Greg]

Many thanks to Vasant and Don.

This is exactly what I needed.

 

[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

 

[Don Guillett]

glad to help