Required vba code copy data sheets to new workbook & retn to old sheet userform

Dear Sir,

I want to required vba code copy data from sheets to new workbook .
for exp ;
1. listbox1.value select option 1 then copy sheet1 to new workbook
2. listbox1.value select option 2 then copy sheet2 to new workbook
3. listbox1.value select option 3 then copy sheet3 to new workbook

when complete the task , then goto return userform1 .

thank you all..

listbox.png

Option Explicit

Private Sub CommandButton1_Click()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet, wsO As Worksheet
    
If ListBox1.Value = "COPY SHEET 1 TO NEW WORKBOOK" Then
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Sheet1")
    Set wbO = Workbooks.Add
    With wbO
        Set wsO = wbO.Sheets("Sheet1")
        'Save the file
        '.SaveAs Filename:="C:\Book2.xls", FileFormat:=56

        'wsI.Range("A1:B10").Copy
         wsI.Cells.Copy
         wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
        
         Application.ScreenUpdating = True
     End With
ElseIf ListBox1.Value = "COPY SHEET 2 TO NEW WORKBOOK" Then
    Set wsI = wbI.Sheets("Sheet2")
    Set wbO = Workbooks.Add
    With wbO
        Set wbI = ThisWorkbook
         Set wsO = wbO.Sheets("Sheet1")
        'Save the file
        '.SaveAs Filename:="C:\Book2.xls", FileFormat:=56

        'wsI.Range("A1:B10").Copy
         wsI.Cells.Copy
         wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
        
         Application.ScreenUpdating = True
     End With
ElseIf ListBox1.Value = "COPY SHEET 3 TO NEW WORKBOOK" Then
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Sheet3")
    Set wbO = Workbooks.Add
    With wbO
         Set wsO = wbO.Sheets("Sheet1")
        'Save the file
        '.SaveAs Filename:="C:\Book2.xls", FileFormat:=56

        'wsI.Range("A1:B10").Copy
         wsI.Cells.Copy
         wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
        
         Application.ScreenUpdating = True
    
    End With
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "COPY SHEET 1 TO NEW WORKBOOK"
    .AddItem "COPY SHEET 2 TO NEW WORKBOOK"
    .AddItem "COPY SHEET 3 TO NEW WORKBOOK"
End With

End Sub

error.png