error 91

[ebu]

he solucionado el problema!
he vuelto a poner: vChild = swComp.GetChildren
y tb he puesto algo q he encontrado x ai, creo q hace q se reconozca la variable como vector.

Dim swCompXform As SldWorks.MathTransform
Dim vXform As Variant

Set swCompXform = swComp.Transform2
If Not swCompXform Is Nothing Then
vXform = swCompXform.ArrayData
End If

pero ahora tengo otro problema. tengo dos sentencias for y al ejecutar el programa se me queda pillado. parece que el ciclo nunca acaba pero en este caso tendria q repetirlo solo una vez no??es como tener:
for i=0 to 1
for j=0 to 0
...

vChild = swComp.GetChildren
For i = 0 To UBound(vChild) 'aqui UBound(vChild)=1
Set swChildComp = vChild(i)
konfigMatrix = swModel.GetConfigurationNames
For j = 0 To UBound(konfigMatrix) ' aqui UBound(konfigMatrix)=0
ActiveCell.FormulaR1C1 = konfigMatrix(j)
ActiveCell.Offset(0, 1).Select
Next j
Next i

haber si me podeis ayudar! gracias!