ListView

[Zeca Ferreira]

Alguém poderia por favor escrever o código abaixo para ser usado em uma ListView:

Private Sub CmdCustomers_Click()

   Dim UniqueList()    As String
    Dim x               As Long
    Dim Rng1            As Range
    Dim c               As Range
    Dim Unique          As Boolean
    Dim y               As Long
     
    Set Rng1 = Sheets("Sheet1").Range("A1:A100")
    y = 1
     
    ReDim UniqueList(1 To Rng1.Rows.Count)
     
    For Each c In Rng1
        If Not c.Value = vbNullString Then
            Unique = True
            For x = 1 To y
                If UniqueList(x) = c.Text Then
                    Unique = False
                End If
            Next
            If Unique Then
                y = y + 1
                Me.ListBox1.AddItem (c.Text)
                UniqueList(y) = c.Text
            End If
        End If
    Next
     
End Sub