(Error 424 Object Required) hata nasıl giderilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

If [E4].Value = 1 Then
    Sheets("Sayfa1").Select
    Sheets("Sayfa1").Activate
        CommandButton1.Enabled = True
        Else
        CommandButton1.Enabled = False
    End If

Bu paragrafta hata nerede? Error 424 Object Required şeklinde hata veriyor.
Saygılarımla

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[Tevfik_Kursun]

Sayın Muygun,
Çok teşekkür ederim
Saygılarımla