Option Explicit
Dim d As New Dictionary

Private Sub Worksheet_Change(ByVal Target As Range)
Dim m, i&, n&, s$
If Target.Column > 1 Or Target.CountLarge > 1 Then Exit Sub
'If d.Count = 0 Then 'это раскомментировать, чтобы каждый раз не происходило заполнение словаря
d.RemoveAll
     With Sheets("Справочник")
         n = .Cells(Rows.Count, 2).End(xlUp).Row
         m = .Range("a1:b" & n).Value
         For i = 1 To UBound(m)
         If Not d.exists(m(i, 1)) Then d.Add m(i, 1), m(i, 2)
         Next
     End With
'End If 'это раскомментировать, чтобы каждый раз не происходило заполнение словаря
If d.exists(Target.Value) Then MsgBox "Нужно добавить код: " & d.Item(Target.Value)
End Sub