PLEASE HELP----Writing If statements in VBA

[Wildcats23]

[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Test[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Water Pressure Test--test 21[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Test 21[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Water Test --- 21[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Test---21[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Pressure Test[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Hello,

I need help writing an if statement that searches for a number(or phrase) is in a Cell. I want it to find if "21" or "Pressure Test" is in the cell then make the entire cell just "21". I would write a formula to do this but there are a lot of different tests so I would like to write a macro instead. THANK YOU!!!

 

[AlphaFrog]

[color=darkblue]Sub[/color] Twentyone()
    Range("B:B").Replace "*21*", 21
    Range("B:B").Replace "*Pressure Test*", 21, MatchCase:=[color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...troubleshooting-multiple-ifs.html#post5190601

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).