eric
If you have multiple ActiveX (it's an ActiveX combobox not a Forms combobox in the workbook Keeballah uploaded) you could have a separate sub to do the formatting.
This sub would be passed the combobox that's just been changed.
It would look something like this and be in a standard module.
Sub FormatCombo(cb As MSForms.ComboBox)
With cb
Select Case .Value
Case Is = "open"
.ForeColor = vbRed
Case Is = "provisional close"
.ForeColor = vbYellow
Case Is = "close"
.ForeColor = vbGreen
Case Else
.ForeColor = vbWhite
End Select
End With
End Sub
It would be called like this from each combobox's change event.
Private Sub ComboBox1_Change()
FormatCombo ComboBox1
End Sub
Private Sub ComboBox2_Change()
FormatCombo ComboBox2
End Sub
Private Sub ComboBox3_Change()
FormatCombo ComboBox3
End Sub
Bookmarks