Macros and protecting a cell

[Lurch65]

For my work I need to strip down part numbers to remove spaces, so created this Macro with find and replace:

Sub Macro1()

'

' Macro1 Macro

'



'

ActiveCell.Replace What:=" ", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Cells.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas2, LookAt:= _

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False).Activate

End Sub

The sheet looks like this:

 

[Lurch65]

When I paste into the box and slide over to my click here button, it works like a charm, but if I catch the button a second time it takes spaces out of other text!

if I unlock the box and then protect the sheet, the macro no longer works.

Ideally I want the Macro to only work on the one cell, my search box.

Even better would be for the Macro to work without having to click the button, the pasted text immeadiately appearing with spaces removed. Is that possible, and, if not, how to do at least prevent the macro from being overly aggressive?

 

[Lurch65]

I did not expect 200 views and no help?

Has this place lost what it once was?

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Sheet protection preventing Macro?
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Lurch65]

I got no answer here so tried somewhere else.



Really not sure Fluff how your answer is:



A)Helpful



B)Not making the mods here look like control freaks



C)Not making the whole excel community look petty and truculent

 

[Fluff]

With that attitude, you're no longer welcome here.