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