السلام عليكم
هذا الكود كذلك يعمل ولكن بانلقر على الزر مرات متعددة تظهر المعادلة ثم تغيب وبإمكان أي شخص التعرف على المعالة
Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub