Plotseling probleem bij zoek en vervang in macro

[Haije]

Hallo,

in een al jaren draaiende macro komt o.a. deze regelvoor:

Cells.Replace What:=".....", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Plotseling looopt de macro hier op vast met de volgende melding:

Fout 438 tijdens uitvoering

Deze eigenschap of methode wordt niet ondersteund door dit object

Als ik met de macrorecorder deze actie opneem krijg ik:

[COLOR="#FF0000"]    .( := ".....",  := IsError,  := xlFormulas,  := xlPart,  := xlByRows,  := _
        xlNext, ActiveSheet := FALSE,  := FALSE).
    IsError.  := ".....", Variant := "((|))",  := xlPart,  := xlByRows, _
        ActiveSheet := FALSE,  := FALSE, ChiSq_Inv_RT := FALSE
    .( := ".....",  := IsError,  := xlFormulas,  := xlPart,  := xlByRows,  := _
        xlNext, ActiveSheet := FALSE,  := FALSE).
[/COLOR]

Heeft iemand dit ooit eerder meegemaakt?
En belangrijker, hoe los ik dit op?

Ik maak gebruik van Excel 2016

 

[snb]

Waaarom heb je de macrorecordercode niet gereinigd ?

Cells.Replace "abc", "", ,2

 

[Haije]

Ook deze wasoperatie heeft niet het gewenst effect.

In de bijlage een voorbeeldbestand met daarin de oude en de nieuwe regel

NB: in Excel2010 werkt de oorspronkelijke regel (nog) wel!

 

[AD1957]

Ik maak gebruik van excel 2016 en de code doet gewoon z'n werk.

 

[BarryT]

Macro werkt bij mij ook gewoon en vervangt alle "......." met "".

Ik draai op Excel 365.

 

[snb]

Een kommaatje minder en een verwijzing naar het werkblad waar gezocht moet worden:

Blad1.Cells.Replace "12 45", "", 2

 

[Haije]

Yes, dat is het!

Bedankt!