اشکال در انتهای کد vba

[majid_mx4]

با سلام

لطفا به جای دستور زیر

If Len(Sheets(2).Range("d1")) = 0 Then

از دستور

 If Len(ActiveSheet.Range("d1")) = 0 Then

استفاده نمایید.
راه دیگر این است که نام فایل اصلی خود را به انگلیسی تغییرمثال Asli دهید.

سپس از دستور زیر استفاده نمایید

If Len(Sheets("Asli").Range("d1")) = 0 Then

موفق باشید میر