Display in a textbox, the character count of a cell, when the cell is selected

**stnkynts** · 01-02-2013, 06:02 PM

Like this:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
    TextBox1.Text = Len(Sheets("Sheet1").Range("A1").Value)
End If

End Sub

You will need to use an activex TextBox for this to work. Put the code in the Worksheet Change event. Edit the range and name of textbox according to your need.

**Pavan Renjal** · 01-03-2013, 05:23 AM

How can i make this work for any cell i click on a worksheet? Also, i need to know if we can implement for a range of cells say A1:A10. I want to try both these cases.