Browse file and Copy it into worksheet selected in combobox.

[adityawarkhede321]

hi everyone,

i have a workbook which has userform in which we have one combo box which contains name of worksheets also have one listbox box,

now i want to import data from external file and copy it to in the worksheet which is selected in combobox.
if i select another option in combobox then upon commnd file should be able to copy into another sheet which selected in combo box.

i'm using this vba code ,
  Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("A1:E20").Copy
        [COLOR=rgb(250, 197, 28)]ThisWorkbook.Worksheets("[/COLOR][COLOR=rgb(235, 107, 86)]SelectFile[/COLOR][COLOR=rgb(250, 197, 28)]").Range("A10").PasteSpecial xlPasteValues[/COLOR]
        OpenBook.Close False
        
    End If
    Application.ScreenUpdating = True
End Sub

can anyone help me with this

 

[adityawarkhede321]

please help me with this