Return Font Property

[ExcelMonkey]

I now I can set the underline property of a cell as follows:

..Font.Underline = xlUnderlineStyleSingle

But how to you return the Underline property of the cell?

?Range(Sheet!$A$1).Font.Underline produces an error

Thanks

EM

 

[Gary''s Student]

Sub testit()
MsgBox (Range("A1").Font.Underline)
End Sub

will give you a numerical value describing the underlining. For example 2
is single underlining.

 

[ExcelMonkey]

Thanks. Where do I find resources to highlight this underlying list
associated with the index number?

Thanks again.

EM

 

[Gary''s Student]

I don't know a resource. Just run a macro to reveal:

2 for single
-4119 for double
4 for single accounting
5 for double accounting

 

[ExcelMonkey]

Thanks

EM

I don't know a resource. Just run a macro to reveal:

2 for single
-4119 for double
4 for single accounting
5 for double accounting