Boa tarde.
Realizei uma alteração na macro, que antes os dados da listbox eram transferidos se o código do registro iniciar com letra, porém eu retirei as letras e o mesmo está somente numero. A pesquisa funciona perfeitamente, porém ao clicar no registro o mesmo não é transferido.

Private Sub Lista_Fornecedores_Click()
  Dim rngCodigo As Range '#### Marcus Loyola - www.excelflex.com.br: variável para armazenar a célula com o código selecionado
  'Dim rngCodigo
  Set rngCodigo = LinhaCodigo(Lista_Fornecedores.List(Lista_Fornecedores.ListIndex, 0))
  If rngCodigo Is Nothing Then Exit Sub
  
  '#### Marcus Loyola - www.excelflex.com.br: preenche com base na range
  Fornecedor.Lbl_Identificacao.Caption = rngCodigo.Offset(0, 0)
  Fornecedor.Lbl_Linha.Caption = rngCodigo.Row
  Fornecedor.Txt_Razao = rngCodigo.Offset(0, 1)
  Fornecedor.Txt_Fantasia = rngCodigo.Offset(0, 2)
  Fornecedor.Txt_Endereco = rngCodigo.Offset(0, 3)
  Fornecedor.Txt_Bairro = rngCodigo.Offset(0, 4)
  Fornecedor.Txt_Cidade = rngCodigo.Offset(0, 5)
  Fornecedor.Txt_UF = rngCodigo.Offset(0, 6)
  Fornecedor.Txt_Cep = rngCodigo.Offset(0, 7)
  Fornecedor.Txt_CNPJCPF = rngCodigo.Offset(0, 8)
  Fornecedor.Txt_Tel1 = rngCodigo.Offset(0, 9)
  Fornecedor.Txt_Tel2 = rngCodigo.Offset(0, 10)
  Fornecedor.Txt_Email = rngCodigo.Offset(0, 11)
  Fornecedor.Txt_Razao.Enabled = True
  Fornecedor.Txt_Fantasia.Enabled = True
  Fornecedor.Txt_Endereco.Enabled = True
  Fornecedor.Txt_Bairro.Enabled = True
  Fornecedor.Txt_Cidade.Enabled = True
  Fornecedor.Txt_UF.Enabled = True
  Fornecedor.Txt_Cep.Enabled = True
  Fornecedor.Txt_CNPJCPF.Enabled = True
  Fornecedor.Txt_Tel1.Enabled = True
  Fornecedor.Txt_Tel2.Enabled = True
  Fornecedor.Txt_Email.Enabled = True
  Fornecedor.Txt_Razao.SetFocus
  Fornecedor.Novo.Enabled = False
  Fornecedor.Salvar.Enabled = False
  Fornecedor.Alterar.Enabled = True
  Unload ConsultaFornecedor
  Fornecedor.Show
End Sub