Application.Convertformula causes Run.time error '13'

[dodolabs]

Hello guys!

I would like to insert a formula to a cell with a macro, but it doesn't work.

Here is the macro:

Sub Macro1()

Dim oszlop As String
Dim fuggveny As String
Dim fuggveny2 As String

oszlop = "D"

fuggveny = "=IF(ISNA(VLOOKUP(Work!" & oszlop & "2;Work!" & oszlop & ":" & oszlop & ";1;0));" & Chr(34) & Chrw(10004) & Chr(34) & ";" & Chr(34) & "Open" & Chr(34) & ")"
fuggveny2 = Application.ConvertFormula(fuggveny, xlA1, xlR1C1)

End Sub

Could you help me?

Thanks!

 

[RoryA]

Try replacing the semicolons with commas.

 

[dodolabs]

It is working, thank you!