UPPER fonksiyonunda değişken kullanma

[omemo]

Merhaba,
Aşağıdaki kodu bu forumdan aldım ve kendime uyarlamaya çalışıyorum. Sayfamdaki son satır değişken olduğundan son satırı bularak koda uyarlamak istedim ama yapamadım. Koddaki 3638 satırı yerine ss (son satır) değişkenini kullanabilir miyim?
Teşekkürler.

Sub Büyükharf()
ss = Cells(Rows.Count, 1).End(3).Row
    Range("B1:B" & ss).Value = [IF(ISTEXT(B1:B3638),UPPER(B1:B3638),REPT(B1:B3638,1))]
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Büyükharf()
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("B1:B" & Son).Value = Evaluate("IF(ISTEXT(B1:B" & Son & "),UPPER(B1:B" & Son & "),REPT(B1:B" & Son & ",1))")
End Sub

 

[omemo]

Teşekkürler.
Evaluate