Hergün en başa yeni çalışma sayfası eklemek

[dumanibo]

Aşağıdaki kodla hergün yeni bir sayfa oluşturuyorum. Ama ilk sayfa hariç sürekli sola doğru ekliyor sayfaları.

*******************************************************
Private Sub Workbook_Open()
gun = Format(Date, "dd.mmmm")

For a = 1 To Sheets.Count
If UCase(Sheets(a).Name) = UCase(gun) Then Exit Sub
Next
Worksheets.Add.Move before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Date
ActiveWindow.ActiveSheet.Name = gun 'Format(Date, "mmmm yyyy;@")

Exit Sub

End Sub
********************************************************

Bense her gün oluşturduğum yeni çalışma sayfasının dosyanın en başına (yani en sola) eklenmesini istiyorum. Bunu nasıl yapabiliriz acaba?

 

[Mehmet Şahin]

Merhaba,
şu şekilde denermisiniz, kolay gelsin.

Worksheets.Add.Move before:=Sheets(1)

 

[dumanibo]

Teşekkür ederim sn. dentex.

Verdiğiniz kodu deneyince istediğim sonuca ulaştım.