vba to add text after "=" Sign

[mdd16]

Hello

I have created a code to enter prefix and suffix to formula in the selected range. I have form which collects input and then puts back the new values in the cells adding prefix and suffix to the existing string.

I want to take the next step and be able to insert the new string after the "=" sign.
Example : Existing formula = "=B2"
Required New formula ="=If(A1=0,0,B2)

I am collecting new string from an input form. But I don't know how to add that string after the "=" sign.

Screen shot of my form is attached.

Can someone help.... please.

 

[offthelip]

try this:

Sub test()
Prefix = "If(A1=0,0,"
suffix = ")"
 Dim SelR As Range
 For Each SelR In Selection
      SelR.Formula = "=" & Prefix & Mid(SelR.Formula, 2) & suffix
 Next
End Sub

 

[mdd16]

Thanks so much for your help.. god bless..