Error 438 hatası

[16prens]

Slm
Error 438 hatası veriyor.
Ekteki çalışma kitabımda 30 sayfa içermekte Sayfalar arası geçiş yapılması için combobox uygulandı fakat dosya açılışta error 438 hatası veriyor.
Yardımlarınız için teşekkürler.

 

[Ömer]

Merhaba,

Modulde yazdığınız aşağıdaki kodları silin. Kalan Düğme kodunu butona bağlarsınız.

Sub AUTO_OPEN()
    LİSTELE
End Sub
 
Sub LİSTELE()
    Sheets("Sayfa1").ComboBox1.Clear
 
    Dim X As Integer
 
    For X = 1 To Sheets.Count
        Sheets("Sayfa1").ComboBox1.AddItem Sheets(X).Name
    Next
 
End Sub

.

 

[16prens]

Kodları sildim
Butona tıkladığımızda list açılıyor fakat seçilen sayfaya geçiş yapmıyor.

 

[Ömer]

Kodları sildim
Butona tıkladığımızda list açılıyor fakat seçilen sayfaya geçiş yapmıyor.

Bende herhangi bir problem olmadı. Dosya ektedir.

.

 

[16prens]

Problem bende
Teşekkürler Emeğine sağlık