Hello,
Depending on the font you have selected ... and on the font size you have picked ... the number of characters you can have will be different ...
So, it would be much easier for you to determine your total length by using the LEN function ...
HTH
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim savedWidth
Dim myForm As New MeasureForm
With myForm.MeasureLabel
.AutoSize = False
.Width = 1024
.Height = 128
.Font.Name = Target.Font.Name
.Font.Size = Target.Font.Size
.Caption = Target.Value
.AutoSize = True
savedWidth = .Width
End With
Unload myForm
If savedWidth > Columns(Target.Column).Width Then Target.Font.Color = vbRed
End Sub