Amigo vou dar um exemplo que aconteceu comigo. Eu também tive esse mesmo problema quando escrevia um código. Eu tinha um string que continha uma lista de materiais e usei a função split para, a partir dessa string, criar várias substrings e jogá-las num vetor.
material = DAD_CP.Cells(cont, 8).Value 'Pega a lista_material de materiais e joga na string material
If (material <> "") Then
lista_material = Split(material, Chr(10)) 'Coloca todos os materiais no Array lista_material
'lista_material(UBound(lista_material) + 1) = Mid(material, (InStr(InStr(1, Chr(10), material) + 1, Chr(10), material) + 1), Len(material)) ' Pega o último item da lista_material de materiais
End If
Eu tinha declarado lista_material e lista_obra na mesma linha, e sempre dava esse erro de Tipos Incompatíveis. O que me dava raiva é que os tipos eram compatíveis sim pois a variável material é uma string e a variável lista_material() era um vetor do tipo string. Mas aí eu decidi exibir a janela de variáveis enquanto eu depurava o código e acabei descobrindo que desgraçada não estava como um vetor de string e sim um vetor tipo Variant, mesmo que no código estivesse esplicitamente declarada como String. Dá pra acreditar? Ai eu declarei ela como String só que em uma linha separada e isolada, e adivinha só? Deu certo! Conclusão: Parece que o VBA não reconhece quando vc declara dois vetores do Tipo string na mesma linha pois lista_obra estava como vetor de string mas lista material não.
Veja acima que quando eu declaro os dois vetores na mesma linha uma fica como string e a outra fica como Variant. Mas veja agora que quando eu declaro ambas separadamente ela ficam com seus tipos originais. Acho que isso deves ser algum bug do VBA Excel. Mas concluindo o raciocínio, quando ocorrer esse erro chato de tipos incompatíveis tente declarar as variáveis separadamente.
CStr(Cells(x, 8).Value)
para converter a variável para String.