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

will give you a numerical value describing the underlining. For example 2
is single underlining.
--
Gary''s Student - gsnu200844


"ExcelMonkey" wrote:

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