Search Cells and Replace Text in that cell

I am very new to Macros and writing VBA scripts. Here is what I am wanting to do. Search multiple cells for certain string and then replace the text of the entire cell with new text.

For example the text may contain:
"A Chestnut Leather Satchel Binocular Case "They'll Fight Over When You're Dead" (Binocularcase-SL-CH)"

I want to search for SL-CH and once that is found I want to replace the contents of the entire cell with the following:
Satchel Chestnut (SL-CH)

TIA

Something simple like this maybe:

Sub SearchReplace()

ActiveSheet.UsedRange.Cells.Select

    For Each cell In Selection
        If cell.Text Like "*SL-CH*" Then cell.Value = "Satchel Chestnut (SL-CH)"
    Next cell
    
End Sub

If that takes care of your need, be sure to EDIT your original post (Go Advanced) and mark the PREFIX box [SOLVED].

Welcome to the forum. lennonjunior.

Please be sure to read the forum rules about thread titles before starting your next thread.