Every once in a while users get a run-time error in my code. I am unable to recreate this error however. If anyone could tell me what I'm doing wrong it would be greatly appricicated. Thanks, Tim Riley ************************code**************************** Option Explicit Public Sub AcadStartUp() Dim SelSet As AcadSelectionSet Dim AT As AcadAttribute Dim FilterType(0 To 0) As Integer Dim FilterData(0 To 0) As Variant Dim FixLay As AcadLayer FilterType(0) = 0 FilterData(0) = "ATTDEF" On Error Resume Next ThisDrawing.SelectionSets.Add "SelSet" Set SelSet = ThisDrawing.SelectionSets("SelSet") SelSet.Clear On Error GoTo 0 SelSet.Select acSelectionSetAll, , , FilterType, FilterData If SelSet.Count <> 0 Then MsgBox "You Have " & SelSet.Count & " Attribute Definition(s) in " & ThisDrawing.Name & ". Please Change Them To Text." 'Create a new layer Set FixLay = ThisDrawing.Layers.Add("Fix_Attributes") FixLay.Color = acRed For Each AT In SelSet AT.Color = acByLayer AT.Layer = "Fix_Attributes" Next End If ThisDrawing.SelectionSets.Item(0).Delete Set SelSet = Nothing End Sub Private Sub AcadDocument_Activate() Call AcadStartUp End Sub