I have searched all over, and can't seem to make sense of the multicolumn list box. Basically, what I need to do is populate a list box with 4 columns. I have already set the columncount to 4. What I need to populate the listbox with is
column 1 = the names of all the sheets in the workbook (except the first 2)
column 2 = EachSheet.Cell(4, 6)
column 3 = EachSheet.Cell(6, 6)
column 4 = EachSheet.Cell(7, 9)
Here is what I have to populate the list with the sheet names, but can't figure out the columns.
Any help is appreciated.
column 1 = the names of all the sheets in the workbook (except the first 2)
column 2 = EachSheet.Cell(4, 6)
column 3 = EachSheet.Cell(6, 6)
column 4 = EachSheet.Cell(7, 9)
Here is what I have to populate the list with the sheet names, but can't figure out the columns.
Code:
Private Sub UserForm_Initialize()
Dim sht As Worksheet
Dim i
lstRecipes.Clear
On Error Resume Next
For Each sht In ActiveWorkbook.Sheets
If sht.Visible = xlSheetVisible Then
lstRecipes.AddItem "" & sht.Name
End If
Next sht
lstRecipes.RemoveItem (0)
lstRecipes.RemoveItem (0)
End Sub
Any help is appreciated.