vba sheets verbergen

[RB_online]

beste forumleden,

Ik heb het volgende stukje code om alle worksheets te verbergen maar ik krijg een foutmelding:

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
[COLOR="Red"]If sh.Name <> "Voorraad" Or "Grafieken" Then[/COLOR]
sh.Visible =false
End If
Next sh

ik krijg steeds een foutmelding bij de rode regel.

fout 13 tijdens uitvoering: typen komen niet met elkaar overeen.

ik werk in excel 2003.
kan iemand mij vertellen wat er mis is?

Gr. René

 

[roeljongman]

VOlgens mij moet je rode regel worden:
If sh.Name <> "Voorraad" Or sh.Name <>"Grafieken" Then

 

[paulva]

2 foutjes

Er zitten twee fouten in:
1 If sh.Name <> "Voorraad" Or "Grafieken" Then
moet wellicht zijn: If sh.Name <> "Voorraad" Or sh.Name <>"Grafieken" Then

2 De logische fout: de 'or' moet 'and' zijn aangezien alle sheets ofwel niet gelijk zijn aan "Voorraad" ofwel niet gelijk zijn aan "Grafieken".

Het is dus:

If sh.Name <> "Voorraad" And sh.Name <>"Grafieken" Then

Beste groeten,
Paul.

 

[RB_online]

@roeljongman

VOlgens mij moet je rode regel worden:
If sh.Name <> "Voorraad" Or sh.Name <>"Grafieken" Then

Dit werkt niet hij probeert dan alle bladen te verbergen

@paulva

Er zitten twee fouten in:
1 If sh.Name <> "Voorraad" Or "Grafieken" Then
moet wellicht zijn: If sh.Name <> "Voorraad" Or sh.Name <>"Grafieken" Then

2 De logische fout: de 'or' moet 'and' zijn aangezien alle sheets ofwel niet gelijk zijn aan "Voorraad" ofwel niet gelijk zijn aan "Grafieken".

Het is dus:

If sh.Name <> "Voorraad" And sh.Name <>"Grafieken" Then

Punt 2 is inderdaad de oplossing voor mijn probleem.
Mijn dank is groot

Gr. rené

 

[roeljongman]

Ja klopt ik struikel zelf ook vaak over OR en AND.. toen ik Paul z'n antwoord zag had ik weer zo'n "O ja dat was het" en ook O nee hé, ben ik weer in de AND en OR val getrapt