Hi,

You need to use ActiveCell's Characters class. following macros will help you.

Sub FirstHalfUnderLineCell()
With ActiveCell
.Characters(Start:=1, Length:=WorksheetFunction.RoundUp(Len(.Value) / 2, _
0)).Font.Underline = xlUnderlineStyleSingle
End With
End Sub
Sub SecondHalfUnderLineCell()
With ActiveCell
.Characters(Start:=WorksheetFunction.RoundUp(Len(. Value) / 2, 0), _
Length:=(Len(.Value) - WorksheetFunction.RoundUp(Len(.Value) / 2, _
0) + 1)).Font.Underline = xlUnderlineStyleSingle
End With
End Sub

Kind Regards

--
Haldun Alay
"Manish Singh" , haber iletisinde sunlari . com...
Hai,

I am trying to figure this out that it there any code that would be
avaliable that can help to select the text in the defined cell & make
The half of the selected text to be undeline in a selected Cell ?


Bye
Manish Singh