Acredito que seja isso:

Sub ComboBoxCodigo_Change()

Application.EnableEvents = False

Dim linha As Long
Dim UL As Long

UL = Cells(Rows.Count, "A").End(xlUp).Row

linha = Application.Match(CDec(ComboBoxCodigo.Value), Range("A3:A" & UL).Value, 0)

ComboBoxDescrição.Value = Application.WorksheetFunction.Index(Range("B3:B" & UL), linha)

Application.EnableEvents = True

End Sub

Sub ComboBoxDescrição_Change()

Application.EnableEvents = False

Dim linha As Long
Dim UL As Long

UL = Cells(Rows.Count, "B").End(xlUp).Row

linha = Application.WorksheetFunction.Match(ComboBoxDescrição.Value, Range("B3:B" & UL))

ComboBoxCodigo.Value = Application.WorksheetFunction.Index(Range("A3:A" & UL), linha)

Application.EnableEvents = True

End Sub

Abs

Uma alternativa seria:

Private Sub Pesquisar()

Application.ScreenUpdating = False

Dim a As Integer
a = Me.ComboBoxCodigo.ListIndex + 3
Me.ComboBoxDescrição.Value = Sheets("Dados").Range("B" & a).Value
Me.TextBoxUnidade = Sheets("Dados").Range("C" & a).Value

Application.ScreenUpdating = True

End Sub

Private Sub Pesquisar2()
Application.ScreenUpdating = False

Dim a As Integer
a = Me.ComboBoxDescrição.ListIndex + 3
Me.ComboBoxCodigo.Value = Sheets("Dados").Range("A" & a).Value
Me.TextBoxUnidade = Sheets("Dados").Range("C" & a).Value

Application.ScreenUpdating = True

End Sub

Muito obrigado!
Vcs são realmente feras!