Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Swap Text With Cell On Right
Sub SwapTextWithCellOnRight()
         Dim CellContent
         CellContent = ActiveCell.Value
         ActiveCell.Value = ActiveCell.Offset(0, 1).Value
     End Sub