Sub show_smarttagactions() Dim i As Integer Dim st As SmartTag Dim sta As SmartTagAction
For Each st In ActiveSheet.SmartTags
Debug.Print st.Range.Address, st.Name, st.XML
For i = 1 To st.SmartTagActions.Count
Set sta = st.SmartTagActions(i)
Debug.Print " " + sta.Name
Next
Next st End Sub