Hücredeki değeri metin olup olmadığını kontrol eder ve duruma göre mesaj gösterir.
Option Explicit
Sub AktifHucredekiDegerinMetinOlupOlmadiginiKontrolEt()
If Application.IsText(ActiveCell) Then
MsgBox "Metin İçerik"
Else
MsgBox "Metin İçerik Değil"
End If
End Sub