Excel VisualBasic Script

Sub valueDemo()
    MsgBox Worksheets("Sheet1").range("A1").value
End Sub