How do I display character count on the status bar?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

user061803 - 15 May 2008 21:38 GMT

Hello -

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

Reply to this Message

Billy Liddel - 16 May 2008 12:00 GMT

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

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

Reply to this Message

Billy Liddel - 16 May 2008 19:48 GMT

You should also use the following

Private Sub Worksheet_Deactivate()
Application.StatusBar = ""
End Sub

and in the workbook module:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = ""
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.StatusBar = ""
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = ""
End Sub

Just to tidy things up

Peter

> Right-Click the worksheet tab and choose View Code, then copy the following
> code
[quoted text clipped - 10 lines]
> > I need the counter in the status bar that will show me how many characters
> > are in each cell.

Reply to this Message