مندرجہ ذیل عبارت کو آپ ماڈیول میں تحریر کریں گے اس کے ساتھ آپ کی ورک شیٹ میں خود بخود گروپنگ آئۓ گی

Enter this code into the private module:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Range("MyRange"), Target) Is Nothing Then

     'Sheet5 has purposely been placed first as this will

     'be the active sheet we will work from

        Sheets(Array("Sheet5", "Sheet3", "Sheet1")).Select

    Else

       Me.Select

    End If

End Sub
اگر آپ اس کے اندر تبیدیلی کرنا جاہتے ہیں تو مندرجہ ذیل عبارت کو درج کریں
Private Sub worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("MyRange"), Target) Is Nothing Then

       With Range("MyRange")

             .Copy Destination:=Sheets("Sheet3").Range("A1")

            .Copy Destination:=Sheets("Sheet1").Range("D10")

    End With

  End If

End Sub