Advice for adding line of code to existing code please

[ipbr21054]

Hi,

I am using the code below which works fine.

Private Sub Worksheet_Change(ByVal Target As Range)  Dim c As Range
  On Error GoTo AllowEvents
  If Target.Count > 1000 Then Exit Sub
  If Not Intersect(Target, Range("B:B")) Is Nothing Then
    For Each c In Target
      If c.Row > 5 And c.Column = 2 Then
          If Len(c.Value) <> 17 And Len(c.Value) > 0 Then
          Application.EnableEvents = False
          MsgBox "VIN MUST BE 17 CHARACTERS", vbCritical, "VIN CHARACTER COUNT MESSAGE"
          c.Value = ""
          c.Select
        End If
      End If
    Next
  End If
AllowEvents:
  Application.EnableEvents = True


End Sub

What i am having an issue with now is trying to add something like the below into the code above.

Range("B").Characters(Start:=10, Length:=1).Font.ColorIndex = 3

The code needs to work for any cell in column B so when a value is typed into the cell the 10th character will be shown in a Red font colour.

 

[Peter_SSs]

Please see my excel sheet TEST2

I did. Post 8 was after I looked at TEST2

 

[Peter_SSs]

Just select the data in column B then hit ctrl+C (copy) ,

.. and Paste of course.

 

[Akuini]

.. and Paste of course.

Ah, you're right.

 

[ipbr21054]

Hi,
I understand the Worksheet_Change but i found my issue,see below.

Private Sub Worksheet_Activate()    Range("A6").Select
    Range("A4:H4").Font.Size = 24
    Range("A6:H40").Font.Size = 18
    Range("A4:H40").Font.Bold = True
    Range("A1:H4").Font.ColorIndex = 1
    Range("A4:H40").Borders.LineStyle = xlContinuous
    Range("A4:H40").HorizontalAlignment = xlCenter
    Range("A4:H40").VerticalAlignment = xlCenter
    Range("A4:H40").Name = "Calibri"
    Range("A4:H5").RowHeight = 36
    Range("A6:H40").RowHeight = 30
    [COLOR=#ff0000]Range("A6:H40").FontColorIndex = 1[/COLOR]
End Sub

Sorry for wasting your time