Başlangıçta Çalışmayan Makro

[crion]

Herkese selamlar, bir sorum olacak sizlere:
Aşağıdaki makro kodu manuel çalıştırılınca doğru çalışıyor, ancak başlangıçta çalışmıyor, sorun ne olabilir dersiniz?

Sub Auto_Open()

Sheets("veri").Select   'U1deki tanımlı EĞER durumuna göre Fill yapılacak
Range("U2:U" & Sheets("istatistik").Range("B3").Value).Formula = "=If(L2=0,Today()-G2,0)"
Range("B1:X" & Sheets("istatistik").Range("B3").Value).Sort Key1:=Range("U2"), Order1:=xlDescending, Header:=xlYes
Range("B1").Select

Application.Visible = False             
UserForm1.Show                         
End Sub

 

[Skorpiyon]

Sayın crion,

VBA bölümünde ThisWorkbook da (yani Private Sub Workbook_Open) makro var ise 2 auto_open çakışır.

 

[crion]

Sayın crion,

VBA bölümünde ThisWorkbook da (yani Private Sub Workbook_Open) makro var ise 2 auto_open çakışır.

Şaban bey, hızlı çözüm öneriniz için teşekkür ederim, gerçekten de orada bir makro olduğunu farketmemiştim artık programım sorunsuz çalışıyor