VBA Replace with wildcards

[Mike Blackman]

Hi All,

I have the following line of code which should replace all characters including and after the "@" but its just giving the whole value.

Replace(Application.VLookup(Sheets("Form").Range("C5"), Range("Lookup.Map"), 4, 0), "@*", "")

Can anybody possibly point out my error?

 

[Andrew Poulsom]

VBA's Replace function doesn't accept wildcards like Excel's Replace method does. You could use Left combined with Instr to return the characters up to the @.