VBA ในการเปลี่ยนฟอรท์

[วังวู ช่ง]

เรียนท่านที่รู้ครับ
ผมลองทำ Code นี้ในการเปลี่ยน font ครับ ไม่รู้ว่าผมทำผิดตรงไหนอย่างไร เหมือนว่า Code ไม่ทำงานครับ
ความต้องการคือว่า ใน a1:a150 ถ้าเป็นตัวเลขให้เปลี่ยนเป็นฟอรท์ Arial Narrow ไม่นั้นก็อไม่เปลี่ยนครับ

Code: Select all

Sub ChangeFont()
   Dim r As Range
   For Each r In Range("a1:a150")
        If r = IsNumber Then
            r.Font.Name = "Arial Narrow"
        End If
   Next r
End Sub

[puriwutpokin]

ปรับตรงนี้ครับ

Code: Select all

  If IsNumeric(r) Then

[วังวู ช่ง]

ปรับตรงนี้ครับ

Code: Select all

  If IsNumeric(r) Then

ขอบคุณมากครับ ใช้เลยครับ ได้ตามต้องการเลยครับ