32 Bitte kodun çalışması

[Bakigemlik]

Merhaba,

Aşağıdaki kon 64 Bit bilgisayarda çalışıyor ama 32 bit te çalışmıyor,

Çalışması için ne yapmam gerekiyor,

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error GoTo son
    Dim Sayfa As Variant
    
    If ActiveSheet.Name <> "Anasayfa" Then
        Sheets("Anasayfa").Select
    Else
        Sayfa = Target.Value
        If Sayfa <> "" Then Sheets(Sayfa).Select
    End If
    Exit Sub
son:
    If Intersect(Target, Sheets("Anasayfa").[A:A]) Is Nothing Then Exit Sub
    Sor = MsgBox(Target.Value & " isimli sayfa yok, eklemek ister misiniz?", _
    vbYesNo, Target.Value & " İsimli Sayfanın Eklenmesi")
    If Sor = vbYes Then
        Tarih = Target.Value - 1
      
        For Each Sayfa In ThisWorkbook.Worksheets
            If Sayfa.Name = CStr(Tarih) Then
                Kontrol = True
                Exit For
            End If
        Next
        
        End If
        Sheets("ornek").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Target.Value
        MsgBox Target.Value & " isimli sayfa eklenmiştir."



End Sub

Teşekkürler,