ยังไงเพื่อให้ตัวเลขใน excel

ยังไงเพื่อให้ตัวเลขใน excel

MsgBox "Active-Row: " & ActiveCell.Row, vbInformation

'******

Sub acitveCellInfo()
     MsgBox "Active-column: " & ActiveCell.Column & ", Active-Row: " & ActiveCell.Row, vbInformation, "Active Cell"
End Sub