Macro para reemplazar solo en el rango de celdas seleccionado

Hola yesica palacios

Intenta:

Range("A7:CC7").Replace What:="1=", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

(eliminando la línea «Application.CutCopyMode = False»)

Hola Chaparrito, no me funciona.

Es que si al hacer el reemplazar manual se deja el Excel como "Reemplazar en workbook", entonces cuando la macro se ejecute automáticamente seleccionará la misma opción, lo que tengo que hacer es que al hacer el reemplazar se seleccione la opción "solo en esa hoja" de esa forma solo se reemplaza en el rango. Sabes como coloco eso en el código?

Desgraciadamente no sé como obviar ese inconveniente, pero puedes intentar con:

For Each oRange In ActiveSheet.Range("A7:CC7")
        While InStr(oRange.Value, "1=") > 0
            oRange.Value = Left(oRange.Value, InStr(oRange.Value, "1=") - 1) + _
                           Mid(oRange.Value, InStr(oRange.Value, "1=") + 1)
        Wend
    Next

Es un poco más lento, pero no importa si está activado el «Reemplazar en workbook» y solo funciona en la hoja actual.

¡Gracias! Después de tanto buscar encontré la solución:

Anteponer el siguiente código antes de Replace

Set r = Worksheets(1).Range("A1").Find(What:="This will reset the Find/Replace tool options, including setting Within=Sheet")

Selection.Replace.......