Attribute VB_Name = "Definition"
'Pick up the value of the currently selected cell,
'treat it as a range name, and go to that range.
'Useful where we have lots of data values that reference
'items with definitions elsewhere in the workbook.
'Having looked up a definition, we then want to go back
'to the original reference.

Option Explicit
Dim source As Range

Sub GoToName(ctrl As IRibbonControl)
'Button callback.
'Assumes a single-cell selection (does nothing otherwise).

    On Error Resume Next
    
    Dim val As String
    Dim name As String
    
    Set source = Selection
    val = source.Value
    name = ActiveWorkbook.Names(val).name
    Application.Goto Reference:=name
    
End Sub

Sub GoBack(ctrl As IRibbonControl)
'Button callback.
'Goes back to the source cell of the previous GoToName.
    On Error Resume Next
    Application.Goto Reference:=source
End Sub