أستخدام evaluate

[احمد زعل]

مرحبا أخواني 

لدي مشكلة في عمل كود شرطي بأسيتخدام evaluate

الكود هو

Dim x As Integer

 

x = Workbooks.Application.Evaluate("=IF(A1 = A2,""ahmad"",2)")

 

MsgBox x

 

حيث أن الكود لا يعمل مع أني قراءت مواضيع كثيرة على الانترنت و لم أجد ما اريد 

 

أرجو مساعدتي

[احمد زعل]

شكرا لكم لقيت الحل

 

لازم عرفت المتغير بنوع variant