Hi all,

I have potentailly unlimited worksheets to my database which can be
added at will, but all have a column which is identical except 2.

I need some code that will look at all worksheets except those two and
carry out my macro.

I thought: For Each Sheet In ActiveWorkbook.Sheets would work but i
cant seem to use it for this.

Any help would be appreciated.


--
kanuvas
------------------------------------------------------------------------
kanuvas's Profile: http://www.excelforum.com/member.php...o&userid=27911
View this thread: http://www.excelforum.com/showthread...hreadid=477084

You can, but you have to outsort the exceptions, something like

For Each sh In ActiveWorkbook.Sheets
If sh.Name < "name1" Ad sh.Name < "Name2" Then
'do your stuff
End If
Next sh

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"kanuvas" wrote in
message ...

Hi all,

I have potentailly unlimited worksheets to my database which can be
added at will, but all have a column which is identical except 2.

I need some code that will look at all worksheets except those two and
carry out my macro.

I thought: For Each Sheet In ActiveWorkbook.Sheets would work but i
cant seem to use it for this.

Any help would be appreciated.


--
kanuvas
------------------------------------------------------------------------
kanuvas's Profile:
http://www.excelforum.com/member.php...o&userid=27911
View this thread: http://www.excelforum.com/showthread...hreadid=477084

Hi Kanuvas,

Try something like:
'==================
Sub Tester()

Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
If WS.Name < "Sheet3" And WS.Name < "Sheet4" Then
'run your code, e.g.:
MsgBox WS.Name
End If
Next WS

End Sub
'<<==================

Change Sheet3 and sheet 4 to the names of the sheets of interest.

---
Regards,
Norman



"kanuvas" wrote in
message ...

Hi all,

I have potentailly unlimited worksheets to my database which can be
added at will, but all have a column which is identical except 2.

I need some code that will look at all worksheets except those two and
carry out my macro.

I thought: For Each Sheet In ActiveWorkbook.Sheets would work but i
cant seem to use it for this.

Any help would be appreciated.


--
kanuvas
------------------------------------------------------------------------
kanuvas's Profile:
http://www.excelforum.com/member.php...o&userid=27911
View this thread: http://www.excelforum.com/showthread...hreadid=477084

Thanks a lot guys both worked wonders

--
kanuva
-----------------------------------------------------------------------
kanuvas's Profile: http://www.excelforum.com/member.php...fo&userid=2791
View this thread: http://www.excelforum.com/showthread.php?threadid=47708