Boa noite, Rui
O erro está ocorrendo quando o código tenta aplicar o método Clear ao controle ListBox1, não é mesmo? (Na linha ufm_pesquisar.ListBox1.Clear). Veja que no help do método Clear para controles em forms tem uma indicação de que
Se o controle estiver ligado a dados, o método Clear falha.
(https://msdn.microsoft.com/pt-br/library/office/gg264629.aspx)
E como seu ListBox1 está ligado a um intervalo de planilha, definido em ComboBox1_Change, é necessário desvincular antes de tentar aplicar o Clear. Isso poderia ser feito, por exemplo, por:
...
ufm_pesquisar.ListBox1.RowSource = ""
ufm_pesquisar.ListBox1.Clear
...
Postado : 28/02/2017 4:27 pm