كود بيحميك من انك توقف على الخلية تريد

 كود بيحميك من انك توقف على الخلية تريد

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 2 And Target.Row = 3 Then
             Beep
       Cells(Target.Row, Target.Column).Offset(0, 1).Select
  ElseIf Target.Column = 2 And Target.Row = 6 Then
       Beep
       Cells(Target.Row, Target.Column).Offset(0, 1).Select
  End If
 End Sub