Erro Type Mismatch, ninguém merece...

Se seu “Form” estão apresentando esse erro quando você utiliza a função “Private Sub UserForm_Initialize()”, onde nessa inicialização você precisa carregar um Combobox. Você pode verificar a seguinte configuração:

Painel de Controle > Região e Idioma > Configurações Adicionais.

Preencha nesse campo “ Símbolo de Agrupamento de Digito”  = “.” conforme imagem abaixo.

Obs: se esse erro está apresentando em varias maquinas, ou você corrige essa configuração em todas ou “passa o gato”:

Dim linha, gato

For linha  = 2 to 1048576

                If sheet1.cells(linha,1) =”” then

                               Exir for

                End If

                Gato = sheet1.cells(linha,1)

                UserForm1.ComboBox1.AddItem gato

Next

É bem mais simples….

Abraços