Excelでドロップダウンリストの選択項目と表示内容を変えたい

Question

##実現したいこと

Excelでドロップダウンリストを作成し、
ドロップダウンリストの選択している項目と
選択後の表示を変えたいです。

ドロップダウンリストのリスト内容は
シート名：『仕入先情報』の取引先名で選択し、
シート名：『仕入先情報』の取引先CDを表示させたい

ドロップダウンリストの表示は
シート名：『データ作成用シート』のＤ行に表示

試したこと

ドロップダウンリストを作成し、Excelで異なる値を表示するには？
上記ＵＲＬを参考に試してみましたが、動作しませんでした。

コード内容

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 5 Then
        selectedNum = Application.VLookup(selectedNa, Sheets("仕入先情報").Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

補足情報（FW/ツールのバージョンなど）

Excelバージョン2019を使用