Soru Birbirine bağlı veri doğrulama

[sirkülasyon]

Option Explicit
Dim sh As Worksheet
Private Sub UserForm_Activate()
  Dim c As Range, dic As Object
  Set sh = Sheets("Maliyet")
  Set dic = CreateObject("Scripting.Dictionary")
  For Each c In sh.Range("B2", sh.Range("B" & Rows.Count).End(xlUp))
    dic(c.Value) = Empty
  Next
  ListBox1.List = dic.keys
End Sub

Private Sub ListBox1_Change()
  Dim c As Range, dic As Object
  Set dic = CreateObject("Scripting.Dictionary")
   ListBox2.Clear
    For Each c In sh.Range("B2", sh.Range("B" & Rows.Count).End(xlUp))
    If c.Value = ListBox1.Value Then
      dic(c.Offset(0, 2).Value) = Empty
    End If
  Next
  ListBox2.List = dic.keys
End Sub

Listboxta uyguladığım veri doğrulama kodunu Listview de nasıl uygulayabilirim? Rica etsem yardımcı olabilir misiniz?