Excell de Sayfa1 yazan yere sağ tıkla "Kod Görüntüle" ye bas çıkan menüde. Üstdeki kodu yapıştır. Üstdeki pencereden Play tuşuna bas yeter.

Not: Else satırında bir parantez fazla koymusum dalgınlıkla onu düzelttim