Combo box value same as new wb

[kritical]

hi All,

i have one combo box and i get all sheet name in that as well , but i want that i generate new work book and that worksheet name is same as that combo box sheet name and copy all the data that is in combo box selected sheet and paste in new ws.

 

[Saurabhj]

Hi, please check if below helps.

Private Sub cboSheetName_Change()
    Dim sheetName As String
    sheetName = cboSheetName.Value
   
    If sheetName = "" Then Exit Sub
   
    ThisWorkbook.Sheets(sheetName).Copy 
   
End Sub

Private Sub UserForm_Activate()
    Dim ws As Worksheet

   With cboSheetName
        For Each ws In ThisWorkbook.Worksheets
            .AddItem ws.Name
        Next
    End With
End Sub

 

[kritical]

thank you saurabhj..

 

[Saurabhj]

Thanks for the feedback.