PasteSpecial problem in Excel 2002

[[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

[mangesh_yadav]

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

[Nigel]

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
>