Hi Jan,
Thanks again for this. My code works as long as I'm running it in the active model. For below is the test code which I used to check. What I need to do is modify this so that I can iterate through the three hundred or so files which I need to perform the same action on and I dont seem to be able to get it working when refering to reference attachments which are not in the active model.
Dim oLevel As Level Dim oAttachment As Attachment For Each oLevel In ActiveModelReference.Attachments("3D-modell").Levels oLevel.IsDisplayed = True Debug.Print oLevel.Name Next oLevel