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