Find and Replace in all excel files

[kimizito]

Hi all,

Need a macro/vba/tool that allows me to find and replace in all opened excel files, at once.

If not, an external tool that allow me to drag & drop files, because I have dozens of files in different folders.

Can you help me? Thank you very much

 

[ChrisBM]

This should loop through open workbooks in your current excel session:

        Dim CurrExcel As Excel.Application
    
        Set CurrExcel = GetObject(ThisWorkbook.FullName).Application

        For Each wbk in CurrExcel.Workbooks
                For Each wsht in wbk.Worksheets
                          wsht.Cells.Replace What:="Text to Replace", Replacement:="Text to Replace with", LookAt:= _                                  xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                                  ReplaceFormat:=False
                Next
        Next

End Sub