For Each shd In Worksheets shd.Activate

[PolBE]

Beste forumgangers

Om in elke sheet een opdracht uit te voeren is er de "For Each shd In Worksheets" opdracht.
Dit werkt perfect maar is er een mogelijkheid om 1 sheet uit te sluiten? Vb ik wil in alle sheets op A1 "OK" zetten behalve op "Blad 1".

Bedankt om mee te denken
Pol

 

[gast0660]

For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "Blad1" Then

 

[reneemettrie]

Of werken met for next

for i = 2 to worksheets.count
worksheets(i).......
next i

 

[PolBE]

Bedankt voor de hulp, ik heb gekozen voor de oplossing van gast0660 en dat werk perfect
Weer een zorg(je) minder

Pol

 

[gast0660]

Mooi zo
Suc6

 

[snb]

En vermijd 'Activate' !!