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

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

--

Vasant


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

Many thanks to Vasant and Don.

This is exactly what I needed.



-----Original Message-----
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

--

Vasant


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



.

glad to help

--
Don Guillett
SalesAid Software

"Greg" wrote in message
...
Many thanks to Vasant and Don.

This is exactly what I needed.



-----Original Message-----
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

--

Vasant


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



.

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

--
Don Guillett
SalesAid Software

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

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

--
Message posted from http://www.ExcelForum.com