Display all the items of a listbox (userform) in specific merged cells ?

[Doflamingo]

Hi all,

I try to design an automate structure/organizational chart and I'm just at the Beginning of my project

First, Here is the code of the List Box with the button of the macro that displays all the items contained in the listbox


Private Sub CommandButton_Click()

Dim I As Long

For I = 0 To ListBox1.ListCount - 1

Cells(1, I + 1) = ListBox1.List(I)

end sub

All the items of the listbox are displayed in a page of an excel spreadsheet in the same row in different columns, like that :
Item A (one column) Item B (one column) Item C (one column) etc.

but what I would like is to have all the items displayed like that ;
item A in a merged cell (2 colums), Empty column, item B in a merged cell (2 colums), Empty column, item C in a merged cell (2 colums), etc.

Any ideas ?

 

[Doflamingo]

Hi @Joe4

Yes I do understand, I know many of VBA users are against the use of ''merged cells'' that's why I focus on ''Using Center Across Selection Instead of Merging Cells'' instead of trying to merge cells ....

It's perfect when it's ''horizontally'' but vertically that seems impossible

I try to get this

https://www.dropbox.com/s/2g1wpcudvkgs097/dfg.png?dl=0

but what I have currently is that

https://www.dropbox.com/s/zkgujx903p82zwr/Untitled.png?dl=0