This code doesn't quite work as expected... after each document, I have to hit the Close button before it Activates the next document, and updates the frmXrefColors form as required. Using .Hide after the Show doesn't help... I actually need to Close the dialog for it to move on correctly... any ideas? Dim Document As AcadDocument For Each Document In Documents Document.Activate Set xrc = New frmXrefColors frmXrefColors.Show Next