I have R-2005 with some VBA code to CHANGE the colors of my layers... BUT does not work in R-2005... did work in R-2002... Dim ExistingLayer as Object Dim acadObj as Object '--------------------------------------------- Set ExistingLayer ThisDrawing.Layers("acred") Set acadDoc.Activelayer = ExistingLayer '----------------------------------------------