Try this,

UserForm1.Label1.Caption = Format(Round(Cells(1, 1), 2), "#,###.00")

Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!