Both Range Addresses get Changed, not just one

[jim may]

When I move the range rDes, another range rOrig with the same address gets changed. How can I prevent this?

Sub Macro1()
Dim rSrc As Range
Dim rDes As Range
Dim rOrig As Range
Set rOrig = Selection
If rOrig.Count < 2 Or rOrig.Columns.Count <> 1 Then
MsgBox "Re-Check your Selection - It doesn't look right"
Exit Sub
End If
Set rSrc = Selection
    Set sDes = Application.InputBox("Click on Destination Cell", Type:=8)
    rSrc.Cut _
    Destination:=sDes
    rOrig.Select        'Currently this address is the pasted address of rDes -- I need for it to retain it's original address
    rOrig = "0"
End Sub

 

[Teeroy]

One way is instead of setting a Range object (rOrig) set a string (sOrig) with the Address of the cell, then set the Range object after you move rDes (if you need to).

 

[jim may]

Good idea; Done !! Thanks, Jim

 

[Teeroy]

You're welcome.