VBA Find and replace keeps changing formatting of cell contents starting with "$"

[Knockoutpie]

Hi, the below code grabs the value from A2 which starts with "$" and replaces all values on the sheet with an input box.

The only issue is after find and replace it changes cell A2 to currency format because it starts with a $ and removes the $. Is there any way to avoid this?

  Private Sub CommandButton1_Click()
    Dim strInput As String
    
    strInput = InputBox("Enter replacement value", Default:="$")
    If strInput <> "" Then
    Range("A2").Select
        Cells.Replace What:=Range("A2"), Replacement:=strInput, LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
            FormulaVersion:=xlReplaceFormula2
    End If
    End Sub

 

[Knockoutpie]

solution found here.

Add an apostrophe to cell value

VBA code for find and replace keeps changing format

Hi All I have the below code; Range("W:W").Replace what:=".", replacement:="/" It is just going down one column and replacing 01.12.2019 for example to 01/12/2019 but each time I run the code it randomly changes the format in some cells to date instead of text or general and then some of the...

www.mrexcel.com