Option Explicit 
 
Sub ChgInfo() 
     
    Dim WS              As Worksheet 
    Dim Search          As String 
    Dim Replacement     As String 
    Dim Prompt          As String 
    Dim Title           As String 
    Dim MatchCase       As Boolean 
     
    Prompt = "What is the original value you want to replace?" 
    Title = "Search Value Input" 
    Search = InputBox(Prompt, Title) 
     
    Prompt = "What is the replacement value?" 
    Title = "Search Value Input" 
    Replacement = InputBox(Prompt, Title) 
     
    For Each WS In Worksheets 
        WS.Cells.Replace What:=Search, Replacement:=Replacement, _ 
        LookAt:=xlPart, MatchCase:=False 
    Next 
     
End Sub