Sub SwapTextWithCellOnRight() Dim CellContent CellContent = ActiveCell.Value ActiveCell.Offset(0, 1).Value = CellContent End Sub