Underlining bottom word in Wrapped cell

[Jeffrey Mahoney]

I'm making headers for an income statement report. The headers change depending on the type of report it is. When a cell is wrapped and the words are in multiple rows I have a problem getting only the words on the bottom to underline. I can use this code, but the user has the ability to change the text in the cell and so it messes up the underline.

IncHdr.Offset(0, 3).Characters(Start:=8, Length:=9).Font.Underline = xlUnderlineStyleSingle

Is there a way to detect which words are on the bottom of the multiple lines? I'm thinking not. Only other way I can think of making it right is to have multiple rows for the words.

Better or Worse Than Budget

<tbody>
</tbody>

 

[Jaafar Tribak]

Thank you Rick ,
Yes , definitely .. This trick is not pretty at all .. I had already tried changing the TextBox Margins but it didn't help much
As you said, the difference between the cells and TextBox character widths + the inconsistent space between characters in the textbox + Margins .. all of that is what causes the problem

The only thing I can think of is using the API, creating a hidden standard Edit Control which has many Properties that can be set and working on the text there .. but it seems overkill

 

[Jeffrey Mahoney]

I did a quick test. It seemed to be working for a few iterations. Until...

This is text that needs to underlined only at the bottom

<tbody>
</tbody>

 

[Rick Rothstein]

I did a quick test. It seemed to be working for a few iterations. Until...

This is text that needs to underlined only at the bottom

<tbody>
</tbody>

In order to see what you see, we would need to know the font name, font size, and width (both numbers) of Column A and maybe the height of Row 1. Also, what is your monitor's screen resolution?