Excel Sayfasına Listview ekleme

[ASMET67]

Merhaba.
Excelin Giris isimli sayfasına Listview nesnesini dosya her açılışta eklemek mümkünmü?

Sayfaya manuel elle eklediğim listwiev nesnesi dosya açıkken çalışıyor ama dosyayı kapatıp açtığımda çalışmıyor. aşağıdaki kırmızı kod satırı hata veriyor.
Sayfadaki listviewi kaldırıp tekrar ekleyince hata vermiyor.
Bunun önüne nasıl geçebilirim?

 Dim liste1 As Object
 Dim s1 As Worksheet
  Dim liste2 As Object

  Set s1 = ThisWorkbook.Worksheets("Ana")
Set liste1 = ThisWorkbook.Worksheets("Ana").ListView1    'hata verdiği Satır
   liste1.ListItems.Clear
   liste1.ColumnHeaders.Clear
 
   Set liste2 = ThisWorkbook.Worksheets("Ana").ListView2 'hata verdiği Satır
  liste2.ColumnHeaders.Add , , "Alt Menu", 235

 

[ASMET67]

Konu günceldir bir yolu varmı ?

 

[ASMET67]

Macro kaydetme yöntemi ile oluşturduğum kodlar aşağıdaki gibiddir. Sayfaya Listview ekleniyor yalnız

Can't enter break mode at this time

hatası veriyor Contine dediğimde end debug hatası veriyor. Bu hata mesajlarını kapatma imkanı varmıdır?

Application.DisplayAlerts = False

 ActiveSheet.OLEObjects.Add(ClassType:="MSComctlLib.ListViewCtrl.2", Link:= _
        False, DisplayAsIcon:=False, Left:=217.5, Top:=42.75, Width:=225.75, Height:=236.25).Select
 Application.DisplayAlerts = True