Aktif hücredeki değerin nümerik bir değer olup olmadığını kontrol eder ve buna göre mesaj gösterir.
Option Explicit
Sub AktifHucredekiDegerinNumerikOlupOlmadiginiKontrolEt()
If Application.IsNumber(ActiveCell) Then
MsgBox "Nümerik İçerik"
Else
MsgBox "Nümerik İçerik Değil"
End If
End Sub