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

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

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



wrote in message
ups.com...
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