Basically, the folder "H:\...\SourceFiles\" contains an expanding list of files with names like:
2011 Week 01.xls
2011 Week 02.xls, etc.
I want to open them one at a time and run the routine below on them. How do I do that? There might be other files in the folder that don't end with "Week ##.xls", so it would be important to have the file selection based on the common ending for each file.
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"H:\Depts\css\A_ILS & Reliability\Reliability\1-CURRENT\System Reporting\SDAE\JAL\3_Working Files\SourceFiles\JAL SourceFile 2011 Week 01.xls"
Dim top As Range, btm As Range, rng As Range
Set top = [A6]
Set btm = top.End(xlDown)
Set rng = Range(top, btm).EntireRow
Dim top2 As Range
Set top2 = [A4].End(xlDown).Offset(1, 0)
Application.CutCopyMode = False
Application.ScreenUpdating = True