Value The Default Property

Sub ShowValue()

    Contents = Worksheets("Sheet1").Range("A1").Value

    MsgBox Contents

End Sub