Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Swap Text With Cell On Right

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