Sub LoopFiles()
Dim wb As Workbook
Dim ws As Worksheet
Dim strExt As String
Dim strPath As String ' Change folder name to the folder with the files in it
Dim strFilename As String
Are you runnin the code from your personal macro workbook? If yes, you should use activeworkbook
Jenedge73
ASKER
I'm runing it out of a open workbook. I can't use the open activeworkbook because its in the folder and wouldn't it be closed in the loop?
Unless I'm missing something
Sub Loop_Original()
Dim wb As Workbook
Dim ws As Worksheet
Dim strExt As String
Dim strPath As String ' Change folder name to the folder with the files in it
Dim strFileName As String
Dim Source As Workbook
'Source Workbook change to whatever
Set Source = Workbooks.Open("C:\Users\rascott\Desktop\Copy of Trade Class Working Copy - Sept 24.xlsx") 'change path
Open in new window
to
Open in new window
Thomas