Edit Combo Box code

[RAM]

Hi guys,

I have a Combo Box with the following code:

Private Sub ComboBox1_Click()
'LinkedCell in ToolBox Properties must be unmarked
ActiveSheet.Unprotect
With ComboBox1
If .ListIndex = -1 Then Exit Sub
Range("ac7").Value = IIf(.ListIndex = 0, 1, .Value)
End With
ActiveSheet.Protect
End Sub

After each time I change the value in the drop down the icon for E-mail in the toolbar is grayed out, and I have to click in any part of the sheet to activate the icon again.

What about if we add a “refresh” or “activate” or something to the code for each time I select and that added code has the same effect as when I click on the sheet to activate the E-Mail icon.

Thanks in advance,

RAM

 

[dk]

Hi

You can just select a cell within your code to take the focus from the combobox to the sheet e.g.

Private Sub ComboBox1_Click()
'LinkedCell in ToolBox Properties must be unmarked
ActiveSheet.Unprotect
With ComboBox1
If .ListIndex = -1 Then Exit Sub
Range("ac7").Value = IIf(.ListIndex = 0, 1, .Value)
End With
ActiveSheet.Protect

Range("F9").Select
End Sub

 

[RAM]

Thank you. Works like a charm.

RAM