VBA Code:
Sub Swap()
If Selection.Count <> 2 Then
MsgBox "Select 2 cells (only) to swap."
Exit Sub
End If
Set trange = Selection
If trange.Areas.Count = 2 Then
temp = trange.Areas(2)
trange.Areas(2) = trange.Areas(1)
trange.Areas(1) = temp
Else
temp = trange(1)
trange(1) = trange(2)
trange(2) = temp
End If
End Sub
Using the above code I able tp swap two selected cell values. However, I would like to add the function to also swap the Cell value to the left of selected cells. ex. IF Select Cell D53 and L34 and run the macro I not only what cell D53 and L34 value to swap but also value C53 and K34 without have to select C53 and K34. The values to the left of the cells selected will always be together. any help is greatly appreciated.
Thanks