How do i Moidy this
To open all excel files in directory with the starting name of ATEC Acc Report?
Thanks
Code:
Filename = Dir("C:\Documents and Settings\cotem\Desktop\" & "" & "*.xls", 0) 'looks only at Excel files
While Filename <> ""
If Left(Filename, 20) = "ATEC Acc Report - " Then
Workbooks.Open ("C:\Documents and Settings\cotem\Desktop\" & Filename), False
GoTo Part1
End If
Wend
To open all excel files in directory with the starting name of ATEC Acc Report?
Thanks