Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Copy the value from the variable into the cell on the right

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