Try this:
WITH .Selection
.NumberFormat = "0.0000"
.Font.Underline = 2 && xlUnderlineStyleSingle
ENDWITH
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.