anlayamadığım bir hata yardım lütfen

[tavizsiz87]

ekli dosyada A4 den itibaren hücrelere girdiğim veriye çift tıkladığımda o isimde şablon biçiminde sayfa oluşturuyor fakat oluşan sayfada açıklama kısmında herangibi bir hücreye çift tıkladığımda şablon isimli sayfaya gidiyor bunu nasıl önlerim üstadlardan yardım bekliyorum

 

[sayın]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, _
                    ByVal Target As Range, Cancel As Boolean)
 If ActiveSheet.Name <> "ANASAYFA" Then Exit Sub
    Dim sayfa As String, sor As String
 
    On Error GoTo Son
 
    With Target
 
        If ActiveSheet.Name <> "ANASAYFA" Then
            Sheets("ŞABLON").Select
        Else
            If Intersect(Target, [A2:A150]) Is Nothing Then Exit Sub
            sayfa = .Value
            If sayfa <> "" Then Sheets(sayfa).Select
        End If
 
        Exit Sub
Son:
 
        sor = MsgBox(.Value & " Sayfası Yok, Ekleyecek misiniz? ", _
                        vbYesNo, .Value & " Sayfasının Açılması")
 
        If sor = vbYes Then
 
            Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Value
            MsgBox .Value & " Sayfası Açıldı...", vbOKOnly, "www.exsel.neb.txr"
 
        End If
 
    End With
 
End Sub

 

[tavizsiz87]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, _
                    ByVal Target As Range, Cancel As Boolean)
 If ActiveSheet.Name <> "ANASAYFA" Then Exit Sub
    Dim sayfa As String, sor As String
 
    On Error GoTo Son
 
    With Target
 
        If ActiveSheet.Name <> "ANASAYFA" Then
            Sheets("ŞABLON").Select
        Else
            If Intersect(Target, [A2:A150]) Is Nothing Then Exit Sub
            sayfa = .Value
            If sayfa <> "" Then Sheets(sayfa).Select
        End If
 
        Exit Sub
Son:
 
        sor = MsgBox(.Value & " Sayfası Yok, Ekleyecek misiniz? ", _
                        vbYesNo, .Value & " Sayfasının Açılması")
 
        If sor = vbYes Then
 
            Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Value
            MsgBox .Value & " Sayfası Açıldı...", vbOKOnly, "www.exsel.neb.txr"
 
        End If
 
    End With
 
End Sub

çok teşekkür ederim arkadaşım Allah razı olsun nezamnadır bunu arardım