ListBox Selection

[stevebrugel]

I am trying to help user see what selection they have made in a Listbox by highlighting their selection. However this has a negative effect by running the code as if the item were selected from the listbox. Does someone know of a way to highlight a selection without it running the code again.
The offending line I have is....
WdxUserform.lstDocAndHypLnks.Selected(j) = True, which sets off...
Private Sub lstDocAndHypLnks_Click()

Any thought are appreciated
Steve

[Dave]

If you set the listindex value of the listbox to the desired selection I think it just highlights the selection. HTH. Dave

[stevebrugel]

I tried this but it has the same effect, using similar code
Private Sub CommandButton1_Click()
ListBox1.ListIndex = 3
End Sub
will cause this to be activated:
Private Sub ListBox1_Click()
MsgBox Application.ActiveDocument.Name
End Sub
is there another way to highlight w/o causing the ListBox1_Click to activate?

[stevebrugel]

I also found a way to change the Font color, which would work...except it changes All the text:eek:

[macropod]

Hi Steve,

Here's one way:
Dim bCmd As Boolean

Private Sub CommandButton1_Click()
bCmd = True
ListBox1.ListIndex = 3
bCmd = False
End Sub

Private Sub ListBox1_Click()
If bCmd = False Then MsgBox ListBox1.Value
End Sub

Note: You'd probably want to initialize 'bCmd = False' when the form loads.