expression.EmbedSmartTags
expression Required. An expression that returns one of the objects in the Applies To list.
Example
In this example, Microsoft Excel determines if smart tags are enabled for the active workbook and notifies the user.
Sub UseSmartTags()
' Determine if smart tags are enabled for this workbook.
If ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True Then
MsgBox "Smart tags can be embedded in this workbook."
Else
MsgBox "Smart tags can not be embedded in this workbook."
End If
End Sub