ListView Mod!

You need to add the listview into the controls toolbox I suspect

Grate it works
THANK YOU!!! :-)
One more question....
Previously I have used the standard listbox which was populated with data from sheet 1 but only if the WORD in column Y was "OPEN" THIS MEAN THAT THE REPORT IS STILL OPEN.

Would it be possible to do with my new ListView??

Here is the code:

Sub PopulateLb()
Dim Y As Integer, X As Integer, ColNum As Integer
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    
    Me.ListBox2.AddItem
    ColNum = 0
    For X = 1 To 19
        Select Case X
            Case 1, 2, 19, 7, 13, 14, 17, 18
            Me.ListBox2.List(0, ColNum) = Cells(2, X).Value
            ColNum = ColNum + 1
        End Select
    Next X
    
    For Y = 3 To EndRow
    If Range("A" & Y).Value = "" Then Exit For
        If Range("Y" & Y).Value = "OPEN" Then
            Me.ListBox1.AddItem
            ColNum = 0
            For X = 1 To 19
                Select Case X
                    Case 1, 2, 19, 7, 13, 14, 17, 18
                    Me.ListBox1.List(Me.ListBox1.ListCount - 1, ColNum) = Cells(Y, X).Value
                    ColNum = ColNum + 1
                End Select
            Next X
        End If
    Next Y
End Sub

Originally Posted by Kyle123

You need to add the listview into the controls toolbox I suspect

Hi Kyle123
Would you be so kind and take a look at my code above please?