Thank you very much Greg,

That worked very nicely indeed. I've been looking for this for a couple of days

I have downloaded all your userforms and there is so much to learn

I started with a basic array
Private Sub UserForm_Initialize()
'Greg Array
Dim myArray() As String
  Use Split function to return a zero based one dimensional array.
  myArray = Split("AL|AK|AZ|AR|CA|CO|CT|DE|DC|FL|" _
             & |HI|ID|IL|IN|IA|KS|KY|LA|ME|MD|" _
             & "MA|MI|MN|MS||MT|NE|NV|NH|NJ|NM|" _
             & "NY|NC||OH|OK|ZOE|PA|RI|SC|SD|TN|" _
             & "TX|UT|VT|VA|WA|WV|WI|WY", "|")
  Use .List method to populate listbox.
  ListBox1.List = myArray
lbl_Exit:
  Exit Sub
End Sub
But then I got stuck running a macro, and a few hours later , I was troubled, so here I am

But nicely solved, I forgot I only put one column up so the blueberries dissapeard
but its solved now
Have a great evening!