1004 This selection is not valid.

Hi

I am a newbie to macros, and this is my first post to this group.

I am trying to move columns in an excel, and hitting error 1004.
This is the relevant portion of code:

Columns(FoundAtColName & ":" & FoundAtColName).Select
Selection.Cut
Columns(Chr(Asc(p_dest_col) + 1) & ":" & Chr(Asc(p_dest_col) + 1)).Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False

Can someone help me resolve this?

Thanks in advance
Ajay

Ajaykgarg, Welcome to the forum

At least you tried to make your code look good, but please use # in the advanced editor so your post applies to the Forum rules.

Edit your post by selecting your code, press the # sign in the advanced editor

This will get you in trouble

Columns(Chr(Asc(p_dest_col) + 1) & ":" & Chr(Asc(p_dest_col) + 1)).Select

When columns exceed Z. e.g AA till IV

Please use R1C1 style (for columns 1 to 256) as all functions like cells.columns.count work that way.

I have chnged my code as follows. I am not getting the error now:-

                Columns(Search_Range.Column).Cut
                If Search_Range.Column > DestColNum Then
                    Columns(p_dest_col).Insert
                Else
                    Columns(DestColNum + 1).Insert
                End If
                Application.CutCopyMode = False