اجرا ماکرو فقط با ورود عدد توسط بارکد خوان بدون زدن اینتر

[khorasan66]

با سلام

در یک شیت دستوری را می خواهم که با ورود عدد توسط بارکد خوان یک ماکروئی مثل ماکرو 1 به صورت خود کار run شود

[khorasan66]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
Call Macro1
End If
End Sub