1: 2: 3: 4: 5:
Sub Macro1() Cells.Replace What:="=-- ", Replacement:="'=-- ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub