Find and replace asterisk

Hi

I have a set of data in which asterisk is used as a separator. Asterisk being a wildcard character hinders with my search operation. I used the following code to replace the * with | as the separator.

Cells.Replace What:="~*", Replacement:="|", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

When I run the code, it replaces all the asterisks in the sheet. I want to restrict the find and replace operation to a particular column (say B:B) / range (say A1:C10) alone. Is it possible to do that?