Excel VisualBasic Script

Sub TestWorkbookNameValue() 
    Dim vValue As Variant 
    vValue = Application.Names("SalesTaxRate").RefersTo 
    Debug.Print "Value retrieved using RefersTo: " & vValue 
End Sub