here is my macro's code (set a layer to visible/invisible).

I would like to set the code to apply changes to all opened file instead of the active file

can somebody help me with that

thanks a lot...

Dim swApp As Object
'------------------------------------
' Preconditions:
'          (1) Drawing document is open.
'          (2) Drawing document contains a layer named PROTO.
'

' Postconditions:
'          If PROTO layer is visible, then it becomes not visible.
'             - or -
'          If PROTO layer is not visible, then it becomes visible.
'
'------------------------------------------------------------------
Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swLayerMgr                  As SldWorks.LayerMgr

    Dim swLayer                     As SldWorks.Layer

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swLayerMgr = swModel.GetLayerManager

    Set swLayer = swLayerMgr.GetLayer("PROTO")

    If swLayer.Visible = False Then

        ' Toggle layer on

        swLayer.Visible = True

        Debug.Assert True = swLayer.Visible

    Else

        ' Toggle layer off

        swLayer.Visible = False

        Debug.Assert False = swLayer.Visible

    End If

End Sub