VBA 2010 Open files in current folder loop

Hi thanks for that... it sort of works... but I've got a problem.

I have a personal workbook that I save all my macros to (it was a fix we came up with as the automatic personal macro file wasn't working - something to do with the way our system is setup). I always have that workbook hidden.

When I run the code as you've written it it uses the file path for the Personal Macro book as the file path to find the folders which of course doesn't work. So I tried adapting it changing this bit from:
sThisFilePath = ThisWorkbook.Path to sThisFilePath = ActiveWorkbook.Path

but when it runs even though it identifys correctly with the pop up message what the next file in the folder is that it is going to work on it doesn't seem to open the file and instead runs the macro on the same workbook again.... any advice?

P.S. I've put it together with my code like this

Public Sub doProcessAllFiles()
Dim sThisFilePath As String
Dim sFile As String

sThisFilePath = activeWorkbook.Path
If (Right(sThisFilePath, 1) <> "\") Then sThisFilePath = sThisFilePath & "\"

sFile = Dir(sThisFilePath & "*.xls*")
Do While sFile <> vbNullString
MsgBox "The next file is " & sFile
sFile = Dir


'My own code inserted here

Loop

End Sub

When you added the comment , ".... handle the file as needed ", I presumed your issue was only limited to how to get the files.
The code that you modified, is only giving you the name of the file. It is not opening any file. You need to open the file

Dim wbBook As Workbook

Set wbBook = Workbooks.Open(sFile)

Ok, sorry for being vague/dim but still can't quite get it to work. This is how I've put it together:

Public Sub doProcessAllFiles()
Dim sThisFilePath As String
Dim sFile As String
Dim wbBook As Workbook


sThisFilePath = activeWorkbook.Path
If (Right(sThisFilePath, 1) <> "\") Then sThisFilePath = sThisFilePath & "\"

sFile = Dir(sThisFilePath & "*.xls*")
Do While sFile <> vbNullString
sFile = Dir


'My own code inserted here

Set wbBook = Workbooks.Open(sFile)


Loop

End Sub

It's coming up with Run Time error '1004'. In the message it includes the name of the file it's looking for (which is the right one) but says it can't find it....?

see if this helps

Public Sub doProcessAllFiles()
   Dim sThisFilePath          As String
   Dim sFile                  As String
   Dim wbBook                 As Workbook
   
   sThisFilePath = sThisFilePath = ActiveWorkbook.Path
   If (Right(sThisFilePath, 1) <> "\") Then sThisFilePath = sThisFilePath & "\"
   
   sFile = Dir(sThisFilePath & "*.xls*")
   ChDir (sThisFilePath)
   Do While sFile <> vbNullString
      MsgBox "The next file is " & sFile
      'if the next file is same as "active file" then skip the file
      If (sFile = ActiveWorkbook.Name) Then GoTo Next_File
      
      Set wbBook = Workbooks.Open(sFile)
      ' your code here
      
      wbBook.Close SaveChanges:=True
      
Next_File:
      sFile = Dir
   Loop
   Set wbBook = Nothing
End Sub

Thanks - tried that but is doesn't seem to like this part:

ChDir (sThisFilePath)

It comes up with Error 76 - Path not found....?