Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Show smart tag actions

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