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