The inverse of adding text....

[rickblunt]

Hello,
I tweaked one of my sub to add some text to a cell in a worksheet (the string for "Coding!F4"), this same code gets repeated on multiple items so F4 can ultimately end up with several text entries all in the same cell. I now realize that I also need to remove that text at some point - without deleting all of the other text in that cell. The inverse of what I am doing initially.

I am pretty sure that I can't simply tweak it to "ActiveCell.Value - " Scrubber 20 " instead of &. Is there another operator that will do this or is this going to require its own sub to do this?

I appreciate any input -thanks,

Sub EnterNumber203()
 
    Sheets("Coding").Select
    Range("Coding!E4").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("Coding!F4").Select
    ActiveCell.FormulaR1C1 = ActiveCell.Value & " Scrubber 20 "
    Sheets("Scrubber Schedule").Select
    Range("B4").Select
    
End Sub

 

[Fluff]

How about

    With Range("Coding!F4")
      .Value = Replace(.Value, " Scrubber 20 ", "")
    End With

 

[rickblunt]

How about

    With Range("Coding!F4")
      .Value = Replace(.Value, " Scrubber 20 ", "")
    End With

That worked perfect Fluff. So if I understand it properly, the code takes the value of "scrubber 20" and replaces it with "". I can think of a myriad of ways I am going to be tweaking some of my other WB's lol

Thank you for yet another coding lesson.

 

[Fluff]

So if I understand it properly, the code takes the value of "scrubber 20" and replaces it with ""

That's right.