Hello Steved

Assuming you always want the 4th numeral bolded and underlined try
this:

Sub Test()
Application.ScreenUpdating = False
Columns("C").Select
For Each cell In Selection

With cell.Characters(Start:=4, Length:=1).Font
.FontStyle = "Bold"
.Underline = xlUnderlineStyleSingle
End With
Next
Application.ScreenUpdating = True
End Sub

Regards,
Per

On 13 Nov., 02:50, Steved wrote:
Hello from Steved

all cells in column C

3547

How does one underline and bold the 4th numeral in this case 7 please.

Thankyou.