Find/Replace VBA Request

[kyleno]

Hi all,

I am looking for some VBA to do a find/replace that can be applied to a defined a range. I would prefer not to have to reference a new worksheet/table if at all possible.

The characters I am looking to find/replace are:
Find What: *
Replace With: %

Find What: ?
Replace With: _

Find What: "
Replace With: '

Find What: &
Replace With: ' || chr(38) || '

P.S.
I originally had the "~" before the "*" and "?" but removed them.

Please and thank you.

 

[Fluff]

How about

Sub Findreplace()

   Dim Ary As Variant
   Dim i As Long
   
   Ary = Array("~*", "%", "~?", "_", Chr(34), "'", "&", "'||" & Chr(38) & "||'")
   For i = LBound(Ary) To UBound(Ary) Step 2
      Range("G:G").Replace Ary(i), Ary(i + 1), xlPart, , False, , False, False
   Next i
End Sub

 

[kyleno]

This is perfect! Thank you!

 

[Fluff]

Glad to help & thanks for the feedback