Hi,

I don't know how to have the background permanently transparent,
but the following might somehow work. (in Excel 2000)

Private Sub ComboBox1_Change()
ActiveWindow.RangeSelection.Select
End Sub

Private Sub ComboBox1_LostFocus()
ComboBox1.BackStyle = fmBackStyleOpaque
DoEvents: DoEvents
ComboBox1.BackStyle = fmBackStyleTransparent
'Application.ScreenUpdating = False
'Application.ScreenUpdating = True
End Sub

--
HTH,

okaizawa

John Davies wrote:
I am having difficulties with a combo box that I want the background
permanently transparent. I was advised to use the following code but the
background still changes to white instead of remaining transparent. As you
can imagine when a cell background is grey, I don't want the combo box
background to show through as white. ANy suggestions please?

Private Sub ComboBox1_Change()
ActiveWindow.RangeSelection.Select
ComboBox1.BackStyle = fmBackStyleOpaque
ComboBox1.BackStyle = fmBackStyleTransparent
End Sub
Thanks in anticipation of an early reply