Populating a listbox with text from worksheet

[theduckman16]

Hello,

I am fairly new to VBA and am trying to do a complex macro (I think). I have not been able to find a solution online.

Here is what my goal is:

I have 10 sheets in my worksheet that all have seperate calendar dates starting on cell O1 and ranging to AE1. I would like to create a macro that takes the dates from these cells and puts them into a form that a user can select; based off of the columns of data they would like to keep. I would like the macro to delete the columns that were not selected.

Any help would be appreciated.

Thanks

 

[theduckman16]

I have found the following code that will put the text in each row into a listbox, but I can't figure out how to get the text from the columns.

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
     Me.ListBox1.List = _
          .Range("a3", .Range("a" & Rows.Count).End(xlUp)).Resize(, 7).Value
End With
With Me.ListBox1
     .ColumnCount = 1
     .MultiSelect = 0
End With
End Sub