Hello all,

I am strugling with an issue i am having regarding replacing cell values based on their current value.

I have a range of cells that contain values, with or with out a * behind them. either aeg"1", "2", "1 *" or "2 *".

There many any value in form of the " *".

I would like to be able to clear the cell if there is no * in the cell, or with a "Yes" if there is a * in the cell.

Currently i can only get it to replace the " *" with results such as "1Yes", "2Yes", and so on, and i cannot seem to come right in clearing the contents if there is no *

current code: 

    Range("I14").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:=" *", Replacement:="yes", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False