Combo Box code
Sometimes, I'm getting an empty combobox.
-----Original Message-----
Might help to know how it is not working.
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Alex" wrote in
message
...
My app is not working stable I suspect the following
code
I'm using for combobox.
Private Sub ComboBox1_Change()
On Error GoTo ComboBox1_Change_Err
Me.ComboBox1.ListFillRange = "R3:R97"
With Worksheets("Legend").Range("a3:a448")
.Borders.LineStyle = xlLineStyleNone
.Borders.ColorIndex = 2
.Borders.Weight = xlThin
Set c = .Find(ComboBox1.Value,
LookIn:=xlValues)
c.Borders.LineStyle = xlDouble
c.Borders.Weight = xlThick
c.Borders.Color = RGB(255, 0, 0)
c.Activate
End With
Application.ScreenUpdating = True
ComboBox1_Change_exit:
Exit Sub
ComboBox1_Change_Err:
MsgBox Error
Resume ComboBox1_Change_exit
End Sub
Could anybody look at this and say whether it's Ok to be
used for combobox?
Thanks
.
|