"cboDirecao.Clear" COM ERRO "Variável não definida"

[Cesanio]

Oi,

Estou tentando encrementar meu FORMULÁRIO VBA. Então, a partir do modelo fornecido de "CADASTRO" e "PESQUISA" de fornecedores. Criei um formulário próprio para cadastro de clientes. Só que inserir abas tipo "page", onde uma delas é a de PESQUISAR do próprio modelo. Só que não consigo fazer funcionar nesta aba. Apresenta o seguinte erro:
'Inicial do formulário completo
Private Sub UserForm_Initialize()
Set wsClientes = ThisWorkbook.Worksheets("Clientes")
Call HabilitaBotoesAlteracao
Call CarregaDadosInicial
Call DesabilitaControles
Call CarregaDadosPesquisa '<= "AQUI INICIA O MODULO Q DÁ O ERRO"

Call trancar
Call CarregarInicial
End Sub

'Modulo com problemas
Public Sub CarregaDadosPesquisa()
'preenche o cboDirecao e seleciona o primeiro item
cboDirecao.Clear '<= Neste ponto aparece a mensagem "Variável não definida"
cboDirecao.AddItem "Ascendente"
cboDirecao.AddItem "Descendente"
cboDirecao.ListIndex = 0

Call PopulaListBox(vbNullString, vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)
End Sub

PRECISAVA TANTO TERMINAR ESSE PROJETO... AGRADEÇO DESDE JÁ.

[srobles]

Cesanio, boa noite!

Sem ter acesso ao modelo fica dificil esclarecer sua duvida, mas vou arriscar um palpite :

Pelo que entendi, este modulo não tem referencia direta com o userform (com esta rotina dentro das declarações e rotinas do form), sendo assim, você deve usar a seguinte sintaxe :

Public Sub CarregaDadosPesquisa()
'preenche o cboDirecao e seleciona o primeiro item
nomedoseuform.cboDirecao.Clear '<= Neste ponto aparece a mensagem "Variável não definida"
nomedoseuform.cboDirecao.AddItem "Ascendente"
nomedoseuform.cboDirecao.AddItem "Descendente"
nomedoseuform.cboDirecao.ListIndex = 0
Call PopulaListBox(vbNullString, vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)
End Sub

Faça os testes e nos retorne.

Abs