Underlining Text in Cells

@Peter Atherton
This macro can be a lot shorter:

Sub UnderlineDate()
[a1] = "For the month ending " & DateSerial(Year([f1]), Month([f1]) + 1, 0)
[a1].Characters(22, 10).Font.Underline = True
End Sub

Hector
If you do not mind a macro, this will enter the text in A1 and underline it. It uses the EOMONTH function to calculate the date of today's date but yo can reset it to F79

Sub UnderlineDate()
Dim txt As String
Dim dte As Date
txt = "For the month ending "
dte = [f1]
dte = Application.EoMonth(dte, 0)
[a2] = txt & dte
Dim L As Integer
L = Len([a1])

[a1].Characters(22, 10).Font.Underline = True
End Sub

Hector,
If the heading is on the worksheet & not a printing header, is it possible to split your header over 2 cells. "For the month ending: " in one cell right aligned and then your date formula in the adjacent cell to the right & left align it & underline ?

hey!

I need to present this heading " For the Month ending: 8/31/2019". This will be a calculated date. I NEED to underscore JUST the calculated date.

I already have the calculated date in cells F79 & G78 respectively and have this function there: ="For the month ending: " & F79 & " of " & G78

MY QUESTION IS: HOW CAN I MANAGE TO HAVE JUST THE DATE UNDERSCORED????

or how can i recall the CTRL-U within my formula??)

Note, a much quicker shortcut to opening the Format Cells box is to push 'Ctrl+1'

You may want to add that you can also underline just part of the text--for example, a single word--in a cell. This is also true if you want to bold, italicize, and/or change the color of specific text in a cell.

For a cell that already has text in it, this can be accomplished by hitting F2 or double-clicking on the cell to edit it. Select the word or words you wish to modify, then either select the appropriate function from the toolbar (e.g., underline, bold, italics, color) or the short cuts such as Ctrl+U, Ctrl+B, or Ctrl+I to modify the text, then exit the cell.

If the cell is blank, simply start typing and use the above options to modify the text as desired, then exit the cell.