Opening a file with code without a set file name

[jenkinspat]

Sorry for lack of details.

Im using simple Excel code in a Module here's what im using.

-----
Sub ExtractLatData()
'
'

Sheets("stby").Select
Application.ScreenUpdating = False
ChDir "C:\Pt23 Spread"
Workbooks.Open Filename:="C:\Pt23 Spread\sensor.xls"
Sheets("RSR Summary").Select
Rows("1:14").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("A:L").Select
Selection.Copy
Application.DisplayAlerts = False

ActiveWindow.Close
Sheets("RSR Report Data (Errors)").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
ActiveWorkbook.Save
Sheets("Control").Select
Application.ScreenUpdating = True
MsgBox " Finished, Exit EXCEL and open the ACCESS file to vie
Report "
End Sub
-------
The sensor file name is named different every day and the user has t
change the name before running the code. Of course half of them forge
to. The file contents of the file are the same except the changes fo
the test data so it just the (set) name im trying to make easier.
Or maby a code that will change the name for them, maby.

Thank you,
Pat

 

[JulieD]

Hi

how about something like

dim fname as string

fname = inputbox("What is the name of the file?")

Sheets("stby").Select
Application.ScreenUpdating = False
ChDir "C:\Pt23 Spread"
Workbooks.Open Filename:="C:\Pt23 Spread\" & fname & ".xls"

'rest of your code