Hi All,
I have 150 sheets in one workbook, named like Sheet1, sheet2....sheet150, i want copy bB column from all sheet and paste in New Workbook in sheet one.
Thanks,
Chetan
Hi All,
I have 150 sheets in one workbook, named like Sheet1, sheet2....sheet150, i want copy bB column from all sheet and paste in New Workbook in sheet one.
Thanks,
Chetan
Give this code a trySub Test() Dim wb As Workbook Dim ws As Worksheet Dim iColumn As Integer iColumn = 1 Set wb = Workbooks.Add For Each ws In ThisWorkbook.Worksheets ws.Columns("B").Copy wb.Worksheets(1).Cells(1, iColumn) iColumn = iColumn + 1 Next ws Set wb = Nothing End Sub
Thank You very much JieJenn !!! Its working awesome you are really superstar. thanks a lot once again
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks