Hi,

I developed a macro to add attributes to devices but it is not working with formula attribute.
Is there a solution?



Sub sbCheckAndAddAttr(oDev As ObjectItem, attrID As Long, stTap As String)
On Error GoTo errorHandler

Call oDev.Attributes.Add(attrID)
If stTap <> "" Then
Call oDev.Attributes.AddAttributeToMask(attrID, stTap)
End If
ExitHanlder:
Exit Sub
errorHandler:
End Sub