windows 8 excell 2003 'te çalışan markolar hakında

[tokerx22]

windows7 de günlük kullandıgım bir excell dosyası vardı .. pc lere win8 yüklendi excell dosyasını açmada çalıştırmada hiç bir sıkıntı tok yalınız yeni sayafa yani yeni bir müşteri eklemek istedigimizde .. bir hatayla karşılaştı diyor ve excell sayfasını kapatıyor... sayfada kullandıgım kod :

 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 <> "index" Then
    Sheets("index").Select
Else
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("index").[B:B]) Is Nothing Then Exit Sub
Sor = MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, Target.Value & " Adlı Sayfanın Açılması")
If Sor = vbYes Then
    Sheets("şablon").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    MsgBox Target.Value & " Sayfası Açıldı......", vbOKOnly, "ToKeRLeR"
End If
End Sub

[code]