Başka dosya açılınca eski dosyadaki sayfa false olması

[dragon44760]

Sub banka_disketi()
Sheets("Banka").Visible = True
Dim Sh As Worksheet
Set Sh = Sheets("banka")
Sheets("banka").Copy
ActiveSheet.Name = "Banka listesi"
End Sub

Yukardaki kodla "banka" sayfasını yeni bir dosya açtırmak suretiyle kopyalıyorum. Kopyaladığım sayfayı "Sheets("Banka").Visible = False" konumuna getirmek istiyorum. Kopyalanacak sayfanın bulunduğu dosyanın adının değiştiği unutulmamalı. Bu dediğim olayı nasıl yapabilirim_? Şimdiden herkese teşekkürler.

 

[hamitcan]

Sub banka_disketi()
    Sheets("Banka").Visible = True
    Sheets("Banka").Copy Before:=Sheets(1)
    ActiveSheet.Name = "Banka listesi"
    Sheets("Banka").Visible = False
End Sub

 

[dragon44760]

hocam eklemiş olduğunuz kod aynı kitaba ilgili sayfayı kopyalamakta. Ben yeni bir kitap açmasını ve o kitabın içine ilgili sayfayı kopyalamasını istiyorum.

 

[hamitcan]

Sub banka_disketi()
    Sheets("banka").Visible = True
    Set wb = ActiveWorkbook
    Set NewWorkbook = Workbooks.Add
    wb.Sheets("banka").Copy Before:=NewWorkbook.Sheets(1)
    NewWorkbook.ActiveSheet.Name = "Banka listesi"
    wb.Sheets("banka").Visible = False
End Sub

 

[dragon44760]

Teşekkürler Hocam elinize sağlık...