It is because it is one line, and you are putting it on 2.
Should be:

Sub InsertColumn()

For i = 20 To 1 Step -1
Columns(i).Select
Selection.Copy
' Columns(i).Insert
Columns(51 - i).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Next i
Application.CutCopyMode = False

End Sub

I have put a continuation character.

Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378481