عليكم السلام ورحمة الله وبركاته

وبداية مني بأبسط كود من داخل الصندوق عشان مش فاضي ادور خارج الصندوق 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("f3")) Is Nothing Then
        If [f5] = "Excel" Then
            [f5] = ""
        Else
            [f5] = "Excel"
        End If
    End If
End Sub

لنرى من يبدع بكود خارج الصندوق 

مبدع دائماّ استاذ  Yasser Elaraby بارك الله فيك كود ممتاز
أستاذى الكريم  YasserKhalil دائماّ وأبداً تتحفنا بروائعك ..برجاء من سيادتكم التماس العذر دائماً لجميع الأعضاء والأساتذة فمشاكل العصر أصبحت كبيرة وغير قادرين على مواكبتها فى ظل زيادة المعيشة وسوء الأحوال وازدياد الطلب وقلة العرض على كل شيء يعتبر هم كبير جداً .فندعو الله جميعاً ان يفرج كربتنا ويوسع فى أرزاقنا ويبعدنا الله دائما عن الوباء والبلاء والغلاء

أخي الكريم هاني
أعاننا الله وإياكم على ما نحن فيه ويسر الله أمورنا

الله ينور يا عربي على الكود بس ممكن نخليك تطلع برا الصندوق واستخدم دالة IIF .. ورينا الإبداعات