Nhờ anh chị sửa code macro

[fukagawa]

- Em có đoạn mã macro dùng để đổi vị trí giữa các ô excel theo mình muốn nhưng mà hiện chỉ thay đổi được nội dung trong ô excel
- Giờ em muốn các shape mũi tên nằm trên vị trí các ô excel muốn đổi đi theo luôn các ô đó khi chạy macro. Anh/chị sửa code macro dùm em với. Em cám ơn

Sub Swap()
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "SWAP BOX"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub