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?