Looping through all files in a directory, but open file does not loop

[shelim481]

Please help, my issue is that the code below works but not for active work book, so when i run the macro from the a open workbook in the same directory, it works for all the files but not for the one thats opened and im running from...

i want it to run for the file thats open too.

Allfolders = MsgBox("Do you want to Run for All files in this folder", vbYesNo)
    If Allfolders = vbYes Then
	
    If Right(MyPath, 1) <> Application.PathSeparator Then MyPath = MyPath & Application.PathSeparator
    Fname = Dir(MyPath & "*.xlsm")


    'loop through the files
    Do While Len(Fname)


        With Workbooks.Open(MyPath & Fname)
        
           ' code here
End With
            xFileName = Dir
        Loop
    End If

 

[Fluff]

This line

 xFileName = Dir

should be

 Fname = Dir

What is MyPath?

 

[shelim481]

Dim MyPath As String
Dim Allfolders As String
Dim Fname As String

MyPath = Application.ThisWorkbook.Path & "\"

 

[shelim481]

i changed that and still does not work JUST for the file that im running the macro from in the same directory as all other files

 

[Fluff]

With MyPath like that, it will only open files that are in the same folder as the file containing the macro.
Is that not what you want?

 

[shelim481]

I want the file that's already open to run the macro, as currently all the other files run the macro but the one I'm running the macro from..

 

[Fluff]

I'm afraid that I don't understand what you're saying.
Your code will look in the folder that the workbook containing the code is in. Is that what you want?

 

[shelim481]

Yes that's what I want...but because the file I'm running the macro from is open, it does not run the macro on the open file..on all the other file it works..

 

[Fluff]

Ok, I think I understand, what your saying, but I don't understand why.
As well as having the code to process the files inside the loop, you will need to add it after the loop has finished, pointing at ThsWorkbook

 

[shelim481]

Yep that would do it...how would you add the macro after the loop?