Yes use
format(sheets("Sheet3").Range("p2").Value,"#.##")
this will give two decimal places

MsgBox "The Average is" &
format(sheets("Sheet3").Range("p2").Value,"#.##")


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=382585