VBA in excel with Photoshop

See more:

VB

VBScript

Hello,

I am trying to make an application in vba for implementing a search through photoshop layers. I get the error at the line between ***. I searched all over google and found nothing, also in some photoshop scripting manuals for VBA where the exact line is state as an example. Please help me, it's driveing me mad. Also, hope it's in the right section.

Runtime error 438 Object doesn't support this property or method

<pre lang="vb">For Item = 1 To objActiveDocSecondary.Layers.Count
            If objActiveDocSecondary.Layers(Item).TypeName = &quot;LayerSet&quot; Then
                If InStr(UCase(objActiveDocSecondary.Layers(Item).Name), WordToSearch) Then
                    setVisibilityAllLayers (False)
                    objActiveDocSecondary.ActiveLayer = objActiveDocSecondary.Layers(Item)
                    Exit For
                End If
            Call parseLayersSearch(objActiveDocSecondary.Layers(Item))
            Else
                layerName = objActiveDocSecondary.Layers(Item).Name
                If InStr(UCase(objActiveDocSecondary.Layers(Item).Name), WordToSearch) Then
                    setVisibilityAllLayers (False)
                  ********************************************************************************
                    objActiveDocSecondary.ActiveLayer = objActiveDocSecondary.Layers(Item)
                  ***************************************************************************
                    Exit For
                End If
            End If
        Next Item</pre>