Açılan sayfayı en sona taşı

[Leoncio]

Merhaba;
Aşağıdaki kod ile çalışma kitabı içersinde yeni bir sayfa oluşturuyorum. Bu sayfayı en sona makro ile nasıl taşıyabilirim?

(Yeni açılan sayfa en son sayfa olacak)

Sub Yeni()
i = InputBox("YENİ MÜŞTERİYE AİT SAYFA AÇIYORSUNUZ ")
Sheets.Add.Name = i
End Sub

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub Yeni()
ss = Sheets.Count + 1
i = InputBox("YENİ MÜŞTERİYE AİT SAYFA AÇIYORSUNUZ ")
Sheets.Add.Name = i
Sheets(i).Move After:=Sheets(ss)
End Sub

 

[Leoncio]

Tamamdır. Teşekkürler.

 

[Ali]

Alternatif

Sub Yeni()
i = InputBox("YENİ MÜŞTERİYE AİT SAYFA AÇIYORSUNUZ ")
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = i
End Sub