thanks a lot Vivka.
For some reason it sometimes works for me and sometimes it doesn't.

But I recorded a macro that runs several macros and each one does a swap. And so by a single shortcut I can run them all together.

Sub CLEAN()
'
' CLEAN Macro
'
'
Application.Run MacroName:="Normal.NewMacros.MFindReplaceMINUS1"
Application.Run MacroName:="Normal.NewMacros.MFindReplaceMINUS2"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePLUS1"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePLUS2"
Application.Run MacroName:="Normal.NewMacros.MFindReplacePARA"
Application.Run MacroName:="Normal.NewMacros.MFindReplace"
End Sub