Try this:
WITH .Selection
.NumberFormat = "0.0000"
.Font.Underline = 2 && xlUnderlineStyleSingle
ENDWITH

Thank for your reply,
can i ask more... how to set the CELL alignment - Right

**********
And someone told me, i can open Excel application and create a MARCO ( to take a look the soure code ) as below :-

.Font.Underline = xlUnderlineStyleSingle
(why that is not '2')

***********

Can you tell me where (website) can i learn more about the Command to control a Cell ?