you extract the value from Sheet3 at p2 cell, it should
sheets("Sheet3").Range("p2").Value


try this

MsgBox "The Average is" & 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