Copy multiple sheets in a new workbook

Hi,
I have a file which has 5 sheets and I am creating a macro which should copy 3 sheets (GP_Approval, Country; Summary) into a new workbook.
It seems like my code is not the appropriate one. Thank you.

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
If wsI(i).Name = "Country" Then wsI(i).Copy
If wsI(i).Name = "Summary" Then wsI(i).Copy

Next

End Sub