Identify Smart Tag
 

I know that if I have a smart tag in cell C2 I can extract the parent name as
follows:

MsgBox (Worksheets("Sheet1").Range("C2").SmartTags.Parent )

How do I test if the cell in question is in fact a SmartTag. Can you use
the set stmt and Set a variable to a SmartTag Object and then test to see if
the SmartTagObject is Nothing?

The following does not work:
Set X = Worksheets("Sheet1").Range("D2").SmartTags
neither does:
Set X = Worksheets("Sheet1").Range("D2").SmartTags.Parent

Thanks

EM