`Dim i, listbox1, listbox2, tag`
    `Set listbox1 = ScreenItems("ListBoxValveName")`

    `For i = 1 To 120`
         `tag = "ValveName" & "##" & i & ""`
         `listbox1.SelectedIndex = i`
         `Set listbox1.SelectedText = SmartTags.Item(tag)`

    `Next`