VBA to replace cell value

[delice]

Hi, Im Pablo, I have a Workbook named "recepies", and this workbook has 90 sheets and all with diferent names: "cost", "sales", "cheescake", "math", "key lime pie", "red velvet", etc...
sometimes I need to replace text in several sheets (not all of them) just a selection (like 80 sheets) and if I use the excel opcion find/replace text or numbers, the value is Replace in all sheets or only in the sheet im working. Im looking for a VBA code to do this:

 

[Herakles]

Hi, Im Pablo, I have a Workbook named "recepies", and this workbook has 90 sheets and all with diferent names: "cost", "sales", "cheescake", "math", "key lime pie", "red velvet", etc...
sometimes I need to replace text in several sheets (not all of them) just a selection (like 80 sheets) and if I use the excel opcion find/replace text or numbers, the value is Replace in all sheets or only in the sheet im working. Im looking for a VBA code to do this:

Hi Pablo

Welcome to Mr Excel.

Do you have the list of worksheets that you want to replace data in or the list of worksheets that you don't want to replace data in?

Does the value to find and replace with come from the values in two cells?

Do you want to replace partial cell values or whole cell values?

 

[Skyybot]

Hi, Im Pablo, I have a Workbook named "recepies", and this workbook has 90 sheets and all with diferent names: "cost", "sales", "cheescake", "math", "key lime pie", "red velvet", etc...
sometimes I need to replace text in several sheets (not all of them) just a selection (like 80 sheets) and if I use the excel opcion find/replace text or numbers, the value is Replace in all sheets or only in the sheet im working. Im looking for a VBA code to do this:

Am I to understand that you are looking for something like the Find and Replace function of Excel but you would like to be able to choose if it looks in the whole Workbook or only selected Worksheets?

 

[Herakles]

Hi, Im Pablo, I have a Workbook named "recepies", and this workbook has 90 sheets and all with diferent names: "cost", "sales", "cheescake", "math", "key lime pie", "red velvet", etc...
sometimes I need to replace text in several sheets (not all of them) just a selection (like 80 sheets) and if I use the excel opcion find/replace text or numbers, the value is Replace in all sheets or only in the sheet im working. Im looking for a VBA code to do this:

This suggestion uses a worksheet named 'Master'. You can change this.

Public Sub subLoopThroughWorksheets()
Dim rngWorksheets As Range
Dim rng As Range

    ' Replace 'Master' with the name of your sheet.
    
    ActiveWorkbook.Save
    
    ' This range contains the list of worksheets to replace data in.
    Set rngWorksheets = Worksheets("Master").Range("A2:A7")

    ' Cell Master B2 contains the value to look for.
    ' Cell Master B3 contains the value to replace.
    For Each rng In rngWorksheets.Cells
        Worksheets(rng.Value).Cells.Replace what:=Worksheets("Master").Range("B2"), _
            Replacement:=Worksheets("Master").Range("B3"), LookAt:=xlWhole, MatchCase:=True
    Next rng
    
End Sub

Find And Replace.xlsm
	A	B
1	Worksheet
2	Cost	Binder
3	Sales	Pen
4	Cheesecake
5	Math
6	Key Lime Pie
7	Red Velvet
Master