Combine specific sheets

[olympiac]

Hi,

I am using the code below to combine several sheets into one.
Can you please tell me how to modify the code in order to combine specifc sheets in the workbook instead of all of them when I run the code below?
Eg. if the Workbook has got Sheet(1), Sheet(2) and Sheet(3) I would like to combine only Sheet(1) and Sheet(2)

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add ' add a sheet in first place
Sheets(1).Name = "Combined"
' copy headings
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
' work through sheets
For J = 2 To Sheets.Count ' from sheet 2 to last sheet
Sheets(J).Activate ' make the sheet active
Range("A1").Select
Selection.CurrentRegion.Select ' select all cells in this sheets
' select all lines except title
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
' copy cells selected in the new sheet on last line
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

 

[jeffreybrown]

You could change the For Next to:

For Each ws In ActiveWorkbook.Worksheets
    If ws.CodeName <> "Sheet3" Then
        'Code here
    End If
Next ws

 

[olympiac]

Thank you