Soru Kodda satır birleştirme

[Beşir TÜRK]

Değerli üye arkadaşlar
Bir makrom var. Makro içerisinde iki satır var bunları birleştirmek istiyorum.

Sheets("VERİ SÜZ").[B17] = Evaluate("=COUNT('VERİ SÜZ'!B4:AJ7)")
If Sheets("VERİ SÜZ").Range("B17") > 0 Then

Kod B17 hücresine B4:AJ7 aralığının BAĞ_DEĞ_SAY sonucunu yazıyor. İkinci satırda sonucun 0'dan büyük olduğuna bakıyor.
Şöyle bir şey mümkün mü?
B17 hücresine yazmadan B4:AJ7 aralığının BAĞ_DEĞ_SAY sonucunun 0'dan büyük olduğuna baksın.

 

[ÖmerFaruk]

If Evaluate("=COUNT('VERİ SÜZ'!B4:AJ7)")>0 Then Sheets("VERİ SÜZ").[B17] = Evaluate("=COUNT('VERİ SÜZ'!B4:AJ7)")

 

[Beşir TÜRK]

Teşekkürler NextLevel.
If Evaluate("=COUNT('VERİ SÜZ'!B4:AJ7)")>0 Then
Bu satır yetiyor.