Offset function with reference cell equal to the value of match function

    If IsError(val) Then
        MsgBox "not found"
    Else
        x = Range("Names").Cells(val, 2).Value
        MsgBox x
    End If