Sayfaları belirli bir değer aralığına göre kapatıp açma

[Erdem29]

Arkadaşlar merhaba,
Bir hücredeki değer aralığına göre, belirli sayfaları visible veya invisible yapmak istiyorum. Yardımcı olursanız sevinirim.

Sub Sayfalar()
If Sayfa0.Range("C7") <= 40 Or Sayfa0.Range("C7") >= 160 Then
Worksheets("Sayfa1").Visible = False
End If
End Sub

 

[ÖmerFaruk]

Kod doğru. C7 içeriğini kontrol edin lütfen.
Birde Sayfa0 kısmını Worksheets("Sayfa0") olarak değiştirip deneyin.

 

[Erdem29]

Teşekkür ederim.
Her şey doğru fakat çalışmıyor açıkçası nedenini anlamadım.

Run time error '9':
Hatasını gösteriyor.