Hi Waldo, welcome to the board.

Maybe something like this will work for your requirement:

[VBA]Option Explicit
Sub open_workbooks_same_folder()
Dim folder As String
Dim Wb As Workbook, sFile As String
Dim Cwb As Workbook
Dim lrow As Long
Dim iChoice As String
folder = ThisWorkbook.Path & "\"
' folder = "C:\Temp\"
Set Cwb = ThisWorkbook
sFile = Dir(folder & "*.xls")
iChoice = InputBox("Pick which Sheet to import", "Select Sheet")


Do While sFile <> ""
If sFile <> Cwb.Name Then
On Error Resume Next
Set Wb = Workbooks.Open(folder & sFile)
' Wb.Sheets("Sheet1").Copy After:=Cwb.Sheets(ThisWorkbook.Sheets.Count)
Wb.Sheets(iChoice).Copy After:=Cwb.Sheets(ThisWorkbook.Sheets.Count)
Wb.Close True
End If
sFile = Dir
Loop
Cwb.Worksheets("Data").Range("A1").Select
End Sub[/VBA]

In the attached zip are 3 files to demonstrate. Open them in the same directory although the path can be changed in the code to suit your need.

Run the runme.xls and enter a sheet name. The data files I tested on were not named monday, etc. but rather just sheet1, etc. so when the messagebox comes up just type sheet1 and hit ok.


PS. When posting code, select it and hit the vba button to format it for the forum as I did in your first post.