Worksheet Function using VBA Macro [SOLVED]

[webmax]

I have a below formula


Substitute(Mid(B6, Find("(", B6, 1) + 1, 99), ")", "")


when i run the same through macro using the below macro code it throws the error as Sub or Function not define. Need the solution for it.


Sub ss()

Range("B3").Formula = Application.WorksheetFunction.Substitute(Mid(B6, Find("(", B6, 1) + 1, 99), ")", "")


End Sub

 

[Sam Mathai Chacko]

Should be


Range("B3").Formula = "=SUBSTITUTE(MID(B6,FIND(""("",B6, 1) + 1, 99), "")"", """")"

 

[webmax]

Thanks sam for your help