makroda "veya" komutu

[torino]

Merhaba,
Muhtemelen örnek konu açılmıştır çok aradım bulamadım

E2,E3,E4,....E10 hücrelerinin hepsi boşsa mesaj versin istiyorum. or komutu kullanmaya çalıştım ama type mistmach hata alıyorum.

If Sheets("UYGULAMA BİLGİLERİ").Range("E2") = "" Or Range("E3") Or Range("E4") Or Range("E5") Or Range("E6") Or Range("E7") Or Range("E8") Or Range("E9") Or Range("E10") Then
msgbox ("SAYFADAKİ FONKSİYONLAR ARASINDAN KULLANDIKLARINIZIN KARŞISINA X YAZINIZ")
Else
Set Ss = Sheets("SENARYOLAR")
Sheets("UYGULAMA BİLGİLERİ").Range("E2") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E3") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E4") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E5") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E6") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E7") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E8") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E9") = ""
Sheets("UYGULAMA BİLGİLERİ").Range("E10") = ""
Ss.ListObjects("Tablo1").Range.AutoFilter Field:=3
Ss.ListObjects("Tablo1").Range.AutoFilter Field:=4
Ss.ListObjects("Tablo1").Range.AutoFilter Field:=5
Ss.ListObjects("Tablo1").Range.AutoFilter Field:=6
Ss.ListObjects("Tablo1").Range.AutoFilter Field:=7

Sheets("CASE LIST").Select
ActiveWindow.SelectedSheets.Delete
End If

 

[Emir Hüseyin Çoban]

. . .

If WorksheetFunction.CountA(Range("E2:E10")) = 0 Then MsgBox "Boş"

. . .