هل هذا التعديل صالح لتفعيل الكود فى كل شيتات الملف ؟؟
أعتقد سوف يصلح
جازاك الله خيراً أخى ابو حنين
Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)
If Target.HasFormula = True Then
ActiveCell.Offset(0, 1).Select
ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select
ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select
End If
End Sub