Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

No Format
Public Sub SwapCols(ColOne As Integer, ColTwo As Integer)
 Dim arr As Variant, rng As Range
 'Dim ColOne As Integer, ColTwo As Integer
 'ColOne = 14
 'ColTwo = 25
 Set rngarr = Range(Cells(1, ColOne), Cells(Rows.Count, ColOne))Nothing
 arr = rng.Columns(ColOne).Value
 rng.Columns(ColOne) = rng.Columns(ColTwo).Value
 rng.Columns(ColTwo) = arr
End Sub

...