xxxxxxxxxx
Sub CountCharactersInCell()
Dim cell As Range
Set cell = ActiveSheet.Range("A1") ' Replace with the actual cell reference
Dim characterCount As Integer
characterCount = Len(cell.Value)
MsgBox "Number of characters in the cell: " & characterCount
End Sub