Thank YOU RON!

"Ron de Bruin" wrote:

Maybe this

With Me.ComboBox1.TopLeftCell
.Offset(0, 5).Resize(, 4) = _
Array("NIN", "NOUT", "ZALT", "ZDTAMB")
End With

Why not copy the values in a range on your sheet and hide it
You can copy it then in one step

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"N.F" wrote in message ...
Help appreciated

I have the following code:

Private Sub ComboBox1_Change()
With Me.ComboBox1.TopLeftCell
.Offset(0, 5) = "NIN"
.Offset(0, 6) = "NOUT"
.Offset(0, 7) = "ZALT"
.Offset(0, 8) = "ZDTAMB"
.Offset(0, 9) = "ZDT1A"
.Offset(0, 10) = "ZERM1A"
.Offset(0, 11) = "ZPWXH"

However the .Offset mode to generate the list in quotes is a long list.
Is there a more compact way of generating this same list?