Otomatik Link ve Sayfa Oluşturma

[05kobra05]

Otomatik link ve sayfa oluşturma konularını gezerken
http://www.excel.web.tr/f14/otomatik...ma-t89158.html
buradaki örnek_2 dosyasındaki vbyi kullanmaya çalıştım ama düzgin bi şekilde çalışmadı

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "ML" Then
    Sheets("ML").Select
Else
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("ML").[B:B]) Is Nothing Then Exit Sub
Sor = MsgBox(Sayfa & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Sayfa & " Adlı Sayfanın Açılması")
If Sor = vbYes Then
    Sheets("ornek").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sayfa
    MsgBox Sayfa & " Sayfası Açıldı......", vbOKOnly, "www.excel.web.tr"
End If
End Sub

Eklemek istediğim şekil bu

Sayfalarım İse

ML - müşteri listesi
Ahmet Mehmet -önceden yapılmış bi sayfa
ornek - örnek sayfası
Sayfalarım bu şekilde ama müşteri listesine yeni müşteri eklemek istediğimde çift tıkladığım zaman
Run-time error '1004':
Application-defined or object-defined error
end debug yazısı çıkıyo debuga bastığımda kodlardaki bu satırda hata olduğun gösteriyo
ActiveSheet.Name = Sayfa

 

[ARDILCELAL]

veri kopyalama

bu konu bana da lazım umarım bi cevap veren olur