Chris,

Try it this way

Sub Message()
Dim txtScore As String
txtScore = Sheets("Calculations").Range("G2").Text
MsgBox "Your score is " & txtScore, vbInformation, " Risk Score"
End Sub


--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Chris" wrote:

Hi - I need to set up a message box that will read a cell on another
worksheet. The button for the msgbox (an where I want it to pop up) is on
the Questions worsheet. The code I have is below;

Sub Message()
Dim txtScore As String

txtScore = Worksheet("Calculations").Range("G2").Select

MsgBox "Your Score is", vbInformation & txtMaturityScore, "Risk Score"

End Sub