Macro to Search and Replace

  • Thread starter Thread starter Excel_Rookie
  • Start date Start date
E

Excel_Rookie

I'm wondering if its possible to have a macro that will find cells wit
specified text and replace it with other specified text.

I have a lot of files that have these same cells that need to b
modified and looking for a way to save time.

Thanks
 
Hey Rookie,

If the files are all in the same folder, and are only one sheet long, then
something like this will do it:

Sub RunMacroOnAllFilesInFolder()
With Application.FileSearch
.NewSearch
'Change the folder name
.LookIn = "C:\Excel"
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
'Put your recurring macro code here
Cells.Replace What:="FindThis", _
Replacement:="Replacement", _
LookAt:=xlPart
ActiveWorkbook.Close True
Next i
End If
End With
End Sub

HTH,
Bernie
MS Excel MVP
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Code to do a simple clean of one column by copying and pasting(finding and replacing) phrases in adj 4
Find cell text and replace three cell in same row 1
Macro search text boxes 5
Search & Replace macro 5
Help with macro to find matching data between two worksheets 4
Search and Replace Problem 3
Find & Replace Dash 7
MACRO: Multiple Find / Replace 3

Back
Top