Forms VisualBasic Script

Sub ChgInfo()
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        Sht.Cells.Replace What:="old", Replacement:="new", LookAt:=xlPart, MatchCase:=False
    Next
End Sub