كيفية عمل كود تنبيه

[ahlan_32]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If Target.column = 5 And Target.Row > 1 Then
x = Target.Offset(, -3).Value - Target.Offset(, 0).Value
Range("b" & Target.Row).Value = x
Range("e" & Target.Row).Value = ""
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

هل ممكن اجعل هذا الكود في module