Sayfa kopyalama

[Ridan]

Aşağıdaki kod ile İCRA2 sayfası kopyalanıyor, ancak İCRA2 sayfasının sağında yer alan tüm sayfalar atlanarak en sağa kopyalanıyor.
İCRA2 isimli sayfanın hemen yanına kopyalansın istiyorum?

Sub copy()
On Error Resume Next
x = Sheets("İCRA2").Range("A2").Value
Sheets("İCRA2").copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = x
End Sub

 

[Necdet]

Merhaba,

Dener misiniz?

Sub Kopyala()

    Dim SayfaNo As Integer, _
        x       As String, _
        Sh      As Worksheet
        
    Set Sh = Sheets("İCRA2")
    On Error Resume Next
    SayfaNo = Sh.Index
    x = Sh.Range("A2").Value
    Sh.copy After:=Sheets(SayfaNo)
    ActiveSheet.Name = x
    
End Sub

 

[Ridan]

Teşekkürler Necdet bey...