Copy multiple sheets in a new workbook

maybe try this?

Sub Copysheets()
Dim wbI As Workbook
Dim wbO As Workbook
Dim wsI As Worksheet
Dim i As Integer


Set wbI = ThisWorkbook
Set wbO = Workbook.Add

For i = 1 To wbI.Sheets.Count
If wsI(i).Name = "GP_Approval" Then wsI(i).Copy after:=wbO(wbO.Sheets.Count)
If wsI(i).Name = "Country" Then wsI(i).Copy after:=wbO(wbO.Sheets.Count)
If wsI(i).Name = "Summary" Then wsI(i).Copy after:=wbO(wbO.Sheets.Count)
end if
end if
end if
Next

End Sub

(untested)

you have omitted the paste portion of the copy/paste routine

Here are a couple of scenarios to learn this:

http://stackoverflow.com/questions/6...book-using-vba

Could you please upload the workbook....?

this seems to be working:

Sub Copysheets()
Dim wbI As Workbook
Dim wbO As Workbook
Dim wsI As Worksheet
Dim i As Integer


Set wbI = ThisWorkbook
Set wbO = Workbooks.Add

For i = 1 To wbI.Sheets.Count
Set wsI = wbI.Sheets(i)
If wsI.Name = "GP_Approval" Then wsI.Copy after:=wbO.Sheets(wbO.Sheets.Count)
If wsI.Name = "Country" Then wsI.Copy after:=wbO.Sheets(wbO.Sheets.Count)
If wsI.Name = "Summary" Then wsI.Copy after:=wbO.Sheets(wbO.Sheets.Count)

Next

End Sub