Swap pasting - cutting and pasting cells' contents

[funguy]

I'm doing a ton of corrections for mixed up information. Is there a function that will cut and paste a cell's contents and automatically push the destination's cells contents to the original cell that you cut from? i.e. - Swapping contents...

if that does exists, I'd assume I could assign a custom keyboard shortcut to the task. Any ideas would be great . thanks !

 

[Mohammad Basem]

This is a very nice idea and very handy

Insert a Module and copy the below code to its code window.

You can then assign shortcut keys to SourceCell and DestinationCell.

[FONT="Consolas"][SIZE="2"][COLOR="Navy"]Option Explicit

Sub SourceCell()
    ActiveWorkbook.Names.Add Name:="SourceCell", RefersTo:="=" & ActiveCell.Address
End Sub

Sub DestinationCell_Swap()

    Dim vSwap As Variant

    vSwap = ActiveCell.Value
    On Error Resume Next
    ActiveCell = Range(ActiveWorkbook.Names("SourceCell").RefersTo).Value
    If Err.Number <> 0 Then
        On Error GoTo 0
        Exit Sub
    End If

    On Error GoTo 0
    Range(ActiveWorkbook.Names("SourceCell").RefersTo).Value = vSwap
    ActiveWorkbook.Names("SourceCell").Delete

End Sub[/COLOR][/SIZE][/FONT]