Cursor moves after selection

[adbrad]

I have a combobox that when I scroll through the items, it's highlighted in blue. After I make a selection (ComboBox1_Change()), it brings up a message Box. When I move the cursor to click on the MessageBox, the selections in the ComboBox are highlighted as the cursor moves over them. The item I selected never changes, it's just annoying that it looks like it's scrolling through the ComboBox items, but it's not. Is there a way to turn off the highlight or keep the highlight on the item chosen?

[:) Sixthsense :)]

Post your combobox code

[adbrad]

I load the ComboBox when they open the spreadsheet with members from another worksheet;

Sub Auto_Open()
Dim wsCurr As Object
Dim wsProduct As Worksheet

Application.EnableEvents = False
initializingContent = True

Set wsCurr = ActiveWorkbook.Worksheets("ReadMe")
Set wsProduct = ActiveWorkbook.Worksheets("Product")

With wsCurr.ComboBox1
.Clear
.AddItem "Pick a Product"
x = 4
Do While wsProduct.Cells(x, 1).Value <> ""
.AddItem wsProduct.Cells(x, 1).Value
x = x + 1
Loop
End With
wsCurr.ComboBox1.Value = wsCurr.ComboBox1.List(0)
Application.EnableEvents = True
initializingContent = False
End Sub

When they pick a selection, I run a Macro;

Private Sub ComboBox1_Change()
If Not initializingContent Then
Call QuestMFSend
End If
End Sub


In the QuestMFSend macro, it gets the selection this way;

With wsOBJ.ComboBox1
sProduct = .Value
End With