Excel macro to get selected colums to a new sheet

Try this macro in VBA:

Sub copycols()

    Dim colrange As String
    colrange = InputBox("Select column letter to be copied. If there are 2 or more adjacent, type colon inbetween eg. for columns C to G, type C:G")
   

    Columns(colrange).Select
    Selection.Copy
    Sheets.Add
    Columns("A:A").Select
    ActiveSheet.Paste
   
End Sub

Is there a way to give as
A:B:D:G:H
All at the same time.This work make work more easier

After 1 colum it creates a new page and for the 2nd time i rin the script it goes again to a new page

I don't know how this can be done with non-contiguous ranges in a macro. I think you have to take the different sets of columns one at a time when copying them from one sheet to another

Ok then how can i do to copy colums A,C and J

Any help...

Hello bsharath,

When copying the columns to the new sheet, do you wish the data to go in the same column, or just from left to right?

Regards,

Wayne

I want it to copy the full row left and right.
It needs to start from Colum "A"

I want to copy to A,B,C

bsharath,

Try the macro I posted.

Wayne