S
Steved
Hello from Steved
Please how do I start the below form Row 5, I Thanyou in advance.
Sub Underline4thDigit()
Dim myS As String
Dim myD As Range
For Each myD In Intersect(ActiveSheet.UsedRange, Range("D"))
myS = myD.Value
myD.NumberFormat = "@"
myD.Value = myS
With myD.Characters(Start:=4, Length:=1).Font
.FontStyle = "Bold"
.Color = -16776961
.Underline = xlUnderlineStyleSingle
End With
Next myD
End Sub
Please how do I start the below form Row 5, I Thanyou in advance.
Sub Underline4thDigit()
Dim myS As String
Dim myD As Range
For Each myD In Intersect(ActiveSheet.UsedRange, Range("D"))
myS = myD.Value
myD.NumberFormat = "@"
myD.Value = myS
With myD.Characters(Start:=4, Length:=1).Font
.FontStyle = "Bold"
.Color = -16776961
.Underline = xlUnderlineStyleSingle
End With
Next myD
End Sub