Hi chicagoland8
Add a UserForm with a ListBox to Wb1. Place this Code in the UserForm Code Module
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Me.Hide
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
With ActiveWorkbook
For Each ws In .Worksheets
ListBox1.AddItem (ws.Name)
Next ws
End With
End Sub
Replace your "Import" Code with this
Public ImportFile As Variant
Public wb2 As Workbook
Option Explicit
Sub Import_Sheet()
Dim x As String
Dim wb1 As Workbook ', wb2 As Workbook
'get imported file
Set wb1 = ActiveWorkbook
ImportFile = Application.GetOpenFilename("Excel Files (*.xlsx*), *.xlsx*,(*.xls*), *.xls*", _
, "Please select the lane data.")
If ImportFile = False Then Exit Sub
Set wb2 = Workbooks.Open(ImportFile)
UserForm1.Show
x = UserForm1.ListBox1.Value
wb2.Sheets(x).Copy Before:=wb1.Sheets("Instructions")
wb2.Close SaveChanges:=False
Unload UserForm1
End Sub
Sample attached...
Bookmarks