UnderLine Piece of Text on Footer By VBA

[LectorFiel]

Hello Everyone.

I am trying to underline a piece of text on the RIGHT footer side using a Macro. But I do not get the result I am looking for.
I know the character for underline, &U , but it does not works. I really appreciate any idea, or help me to detect what is my mistake.

What I am looking on the Right footer side is it:

Form Approved By/Date: Signature on file
Director of Quality

I want to uderline the text " Signature on file "

This is the macro I am using.

Sub AddFooter_CurrentSheetOnly()

With ActiveSheet.PageSetup
.LeftFooter = "Doc No. " & Worksheets("Input PKG").Range("B38") & vbLf _
& "Effective Date: " & Worksheets("Input PKG").Range("B39")
.RightFooter = "Form Approved By/Date: " & U & " Signature on file " & U & vbLf _
& " Director of Quality"
End With


End Sub

Thank you for your help.

 

[AlphaFrog]

.RightFooter = "Form Approved By/Date: [B]&USignature on file&U"[/B] & vbLf _
    & " Director of Quality"

 

[LectorFiel]

Thank you for your answer.

I Replaced the code for what you told me and It does not works, I printed and the the underline does not appears.

What else can I do ??

Thank you

 

[AlphaFrog]

It worked for me. I don't know what else to tell you. Perhaps double check that your code is exactly as I suggested.

 

[LectorFiel]

Hi AlphaFrog.

I followed your Instructions and your are Right, It works Perfectly.

Thank you very much.

I wish you a great week, because for my it is already amazing.

Thanks again.