Yeni bir Sayfa ekle fakat eklenen Sayfa seçilmesi

[tufan03]

Arkadaşlar Yeni bir sayfa eklemek için yazdığımız kodda ;
Yeni bir sayfa eklensin fakat eklenen sayfa seçilmesin kodu çalıştırdığım sayfada sürekli kalayım.

 

[Explorer]

Merhaba,

Aşağıdaki kodları deneyin.

Sub SayfaEkle()
    Dim AktifSh As Worksheet
    Dim YeniSh As Worksheet
    
    Application.ScreenUpdating = False
    
    Set AktifSh = ActiveSheet
    
    Set YeniSh = Sheets.Add
    
    AktifSh.Select
    
    Application.ScreenUpdating = True
End Sub

 

[tufan03]

Teşekkür ederim. Deneyeceğim.