Hi, I need to collect data (selected range) from multiple worksheets in to new one. I used this code Code: Sub With Application .ScreenUpdating = False .EnableEvents = False End With 'Delete the sheet "MergeSheet" if it exist Application.DisplayAlerts = False On Error Resume Next ActiveWorkbook.Worksheets("MergeSheet").Delete On Error GoTo 0 Application.DisplayAlerts = True 'Add a worksheet with the name "MergeSheet" Set DestSh = ActiveWorkbook.Worksheets.Add DestSh.Name = "MergeSheet"
This question generated 15 answers. To proceed to the answers, click here.
This thread is current as of November 22, 2015.
For more resources for Microsoft Excel:
This article includes the following tags:
- Microsoft Excel