Run macro on all sheets except two

Do you mean like so?

Sub ReplacingTest()

Dim Sh As Object

    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.CodeName <> "BackUp" And Sh.CodeName <> "Options" Then
            
            Sh.Cells.Replace What:="VLOOKUP(""19A19"",Options!$F$9:$H$45,3,FALSE)", Replacement:="123456789", LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
            
            
        End If
    Next Sh
    
End Sub

It still replaces everything in the workbook including the Backup and Options sheet.

Sub ReplacingTest()

Dim Sh As Object

For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> "Options" And Sh.Name <> "BackUp" Then
Sh.Cells.Replace What:="VLOOKUP(""19A19"",Options!$F$9:$H$45,3,FALSE)", Replacement:="123456789", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next Sh

End Sub

Originally Posted by shaiz

Sub ReplacingTest()

Dim Sh As Object

    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Name <> "Options" And Sh.Name <> "BackUp" Then

            Sh.Cells.Replace What:="VLOOKUP(""19A19"",Options!$F$9:$H$45,3,FALSE)", Replacement:="123456789", LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        
        End If
    Next Sh

End Sub

I don't believe there is any change in the code from what was initially posted? It will run with or without the quotes okay

Gotcha. Appreciate you explaining it. I end up with the below in that case and its replacing everything in the workbook lol

Sub ReplacingTest()

Dim Sh As Object

    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.CodeName <> "Sheet7" Or Sh.CodeName <> "Sheet8" Then
            
            Sh.Cells.Replace What:="VLOOKUP(""19A19"",Options!$F$9:$H$45,3,FALSE)", Replacement:="123456789", LookAt:= _
            xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

        End If
    Next Sh
    
End Sub

Wops, that was left over from trying different things. I just tried it with 'And' as well and I get the same result

I think there is a larger issue at play here. I stripped down the book to nothing but a few borders but the entire sheet structure is still there. Its attached (but somewhat unneeded as its working there). I closed and reopened the example book and it doesn't replace the vlookup string like it is intended... (which is good). I literally copy/paste the code into the exact same module with the exact same sheet names of what was just stripped and it replaces it.... wtf

Edit. I should note that I did not copy the workbook or copy the sheets. It was only 'save as' and I also tried changing the file name of the problem book to no avail.

Shoot, sorry! I forgot to take that part out.

Yeah it seems to work fine in a new workbook but for some reason in this one, even in its own module... it just wants to replace everything. Very strange. Appreciate the help though!