The following modified version works for me in xl2002

Sub InsertColumn()
Dim i As Integer
For i = 20 To 1 Step -1
Columns(i).Copy
Columns(51 - i).PasteSpecial Paste:=xlPasteValues
Next i
End Sub

--
Cheers
Nigel



<[email protected]> wrote in message
news:[email protected]...
> Hi group,
>
> I'm having a problem with PasteSpecial..it always shows me an error at
> this point..what am i doing wrong here?
>
> 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
>