how to do for each worksheet in workbook exept one sheet??

[matthias]

this is part of my source code

For Each sh In ActiveWorkbook.Worksheets
sh.Range("b7").AutoFilter field:=1, Criteria1:="<>",
visibledropdown:=False
Next

I want to use this but worksheet("overview") may not participate in
the" for each" procedure
something with exit for?

thankx

 

[Duncan]

Matthias,

This is something like what I use at the moment


Dim wks As Worksheet
Set ActSheet = ActiveSheet
overview.activate
For Each wks In ActSheet.Parent.Worksheets
If wks.Name <> ActSheet.Name Then
'do nothing
Else
For Each sh In ActiveWorkbook.Worksheets
sh.Range("b7").AutoFilter field:=1, Criteria1:="<>",
visibledropdown:=False
Next


HTH

Duncan

 

[Duncan]

ooops,

miss out your for each, i just copied your code and pasted it in.

I think there is a better way though.........................

 

[Bob Phillips]

For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "overview" Then
sh.Range("b7").AutoFilter field:=1, _
Criteria1:="<>", _
visibledropdown:=False
End If
Next

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[matthias]

perfect guys!!! thanks