با سلام
لطفا به جای دستور زیر
از دستورکد:If Len(Sheets(2).Range("d1")) = 0 Then
استفاده نمایید.کد:If Len(ActiveSheet.Range("d1")) = 0 Then
راه دیگر این است که نام فایل اصلی خود را به انگلیسی تغییرمثال Asli دهید.
سپس از دستور زیر استفاده نمایید
موفق باشید میرکد:If Len(Sheets("Asli").Range("d1")) = 0 Then
علاقه مندی ها (Bookmarks)