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.