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

Dear Sir, Thank you for your fast reply
Sir, its working correctly.

Can you give me the code of if else condition, because I can use the For loop in the future, and after the new workbook is created, I have to come back to the userform also. can is possible?

Thank you again..

I'm not sure what you're trying to achieve ? Can you explain what you want to do & perhaps we can assist with the required code

For expample small change in listbox option
1) i want to rows grater than 5000 amount in new worksheet
2 ) i want to rows lower than 4000 amount in new worksheet
in vba if condition and after cursor retn to userform1
RETN TO USERFORM.png

Thank You

ohh sorry sir,my typing mistake i want to actually above 5000 rows in all sheets output report in new Workbook not worksheet. & when task completed cursor is return to userform1.

nankw83 sir, Thank you very for your fast reply , & working Perfect

Give it to me as i wanted.
Thank you again..