VBA to replace last two values based on their value

[Godwin117]

I have no idea where to start with this VBA, but I have this column that I would like to replace the last two values to "T1" if they are equal to "**". Any help will be greatly appreciated.

Ex:

Column1	Column2	Result
Bob	WWWBN**	WWWBNT1
Tyreek	IFRYTFF**	IFRYTFFT1
Jumbalie	WROTMD	WROTMD

 

[LazyBug]

Does Find and replace feature (without VBA) work at your case?

 

[Godwin117]

Does Find and replace feature (without VBA) work at your case?

Yes it does, I think I might have to stick with a formula.

 

[Peter_SSs]

Yes it does,

Then what about

Sub ReplaceAsterisks()
  Columns("B").Replace What:="~*~*", Replacement:="T1", LookAt:=xlPart
End Sub

 

[Godwin117]

Then what about

Sub ReplaceAsterisks()
  Columns("B").Replace What:="~*~*", Replacement:="T1", LookAt:=xlPart
End Sub

Thank you, that worked with what I needed.

 

[Peter_SSs]

You're welcome, but putting the whole post in spoiler tags???