Simple one - I think!

My main application (Excel Workbook) opens another workbook with named
range(single cell). How can I refer to these named ranges and return the
value.
In the following code I am trying to set the sheet shControl (codename)
range A1 to the value in the dataWb named range "OptRef"

Dim dataWb as Workbook
Set dataWb = Workbooks.Open(myfile)
With dataWb.Sheets("Sheet1")
shcontrol.range("A1") = ????
End With

TIA