Hello, I have spent way too much time on this and could use some help. I am simply attemtping to rearrange coulns of data using the code:
Sub Rearrange()
Columns("D").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub
When I step through the code it works perfectly fine. However, when I run the entire program it does not work properly. Instead of inserting Column D before Column A, Couluns A are simply shifted to the right one column. Its as if the Cut method is not recognized.
Thoughts?