Swapping Ranges Question

[emilk570]

I am currently in the process of creating a macro that will swap two ranges on one sheet and then swap the same ranges on a different sheet automatically. The macro works and I am able to swap the first 2 ranges on the first sheet with this macro but then I have to manually enter the second sheet's ranges to swap them. Any thoughts?

Sub Swap()


Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "Swap"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("1 (Select Range):", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("2 (Select Range):", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1


Sheets("Sheet 2").Select
xTitleId = "Swap"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("1 (Select Range):", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("2 (Select Range):", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1


Sheets("Sheet 1").Select
Application.ScreenUpdating = True

 

[mikerickson]

Perhaps this is what you want

Sub Swap()
    Dim Rng1 As Range, Rng2 As Range
    Dim arr1 As Variant, arr2 As Variant
    xTitleId = "Swap"
    
    On Error Resume Next
    Set Rng1 = Application.InputBox("1 (Select Range):", xTitleId, Selection.Address, Type:=8)
        If Rng1 Is Nothing Then Exit Sub: Rem cancel pressed
    Set Rng2 = Application.InputBox("2 (Select Range):", xTitleId, Type:=8)
        If Rng2 Is Nothing then Exit Sub: Rem canceled
    On Error Goto 0
    Application.ScreenUpdating = False

    arr1 = Rng1.Value
    arr2 = Rng2.Value
    Rng1.Value = arr2
    Rng2.Value = arr1

    With Sheets("Sheet2")
        arr1 = .Range(Rng1.Address).Value
        arr2 = .Range(Rng2.Address).Value
        .Range(Rng1.Address).Value = arr2
        .Range(Rng2.Address)Value = arr1
    End With

     Application.ScreenUpdating = False
End Sub

 

[emilk570]

That worked perfectly! Thank you so much