السادة / أعضاء المنتدى المحترمين
السلام عليكم ورحمه الله وبركاته
إليكم كود خاص بمسح بيانات شيت بتاريخ محدد
ولكن به خطأ ولا أعرف كيف يتم تصحيحه
الكود كالتالى
Sub Auto_Open()
If Date > #1/23/2014# Then
For Each x In ThisWorkbook.Sheets
x.UsedRange.Clear
Next
ThisWorkbook.Save
End If
End Sub