Right-Click the worksheet tab and choose View Code, then copy the following
code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
c = Len(ActiveCell)
Application.StatusBar = c & " characters"
End Sub

Peter

"user061803" wrote:

Hello -

I need the counter in the status bar that will show me how many characters
are in each cell.