أحسنت استاذ ياسر كود ممتاز بارك الله فيك وزادك الله من فضله

جزاك الله خيراً أخي العزيز علي ومشكور على مرورك العطر

جزاكم الله خيرا
الرجاء توضيح معنى الارقام
.UsedRange.SpecialCells(2, 23).ClearContents

وجزيت خيراً أخي العزيز أبا الحسن
الأرقام تعبر عن الثوابت xlCellTypeConstants حيث نريد مسح البيانات وليس المعادلات

بارك الله فيك أخي الكريم خالد
السطر يتعامل مع النطاق المستخدم في ورقة العمل ويتعامل مع الخلايا التي بها ثوابت فقط وليست الخلايا التي فيها معادلات.

الله يفتح عليك استاذنا ياسر والله حاجة جميلة جدا ولى سؤال
لو انا عايز الكود يمسح البيانات فى كل اوراق العمل ضمن نطاق محدد وليكن a5:j50000
واستثناء الورقة المسماه تقرير
كيف يتم ذلك مع الشكر والتقدير

بارك الله فيك أخي العزيز أبا الحسن
لاستثناء ورقة عمل داخل الحلقة التكرارية لأوراق العمل يمكنك استخدام هذا الشكل

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Report" Then
    'Code
    End If

ولعمل استثناء لأكثر من ورقة عمل قم باستخدام AND بهذا الشكل

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Report" And ws.Name <> "Sheet2" Then
    'Code
    End If

اما بخصوص التعامل مع نطاق محدد من خلال هذا السطر

.UsedRange.SpecialCells(2, 23).ClearContents<br />

يمكنك استبدال النطاق الحالي UsedRange بالنطاق المطلوب ، على سبيل المثال

.Range("A5:J50000").SpecialCells(2, 23).ClearContents

حضرتك ولا اروع والله رنا يحفظك
اكثر الله خيرك
كل الشكر والاحترام
استخدمت هذا الكود استاذنا ولم يستنثى اى صفحة

Sub ClearContents_Exclude_Formulas_In_All_Worksheets()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> "sheet1" And ws.Name <> "sheet2" Then
    End If

            With ws
                On Error Resume Next
                    .Range("A5:J50000").SpecialCells(2, 23).ClearContents
                On Error GoTo 0
            End With
        Next ws
    Application.ScreenUpdating = True
End Sub

خالص التقدير والشكر من قلبى

يرجى عدم اقتباس الردود بالكامل ..كما يرجى وضع الكود بين أقواس الكود ليظهر بشكل منضبط
بالنسبة للاستثناء لاحظت أنك وضعت جملة End If مباشرة بعد سطر الاستثناء وهذا خطأ .. راجع المشاركة مرة أخرى وستجد أنني وضعت تعليق أنه بين السطرين يتم وضع بقية الكود الذي يقوم بالتعامل مع ورقة العمل المطلوب التعامل معها
إذا استمرت المشكلة يرجى طرح المشكلة بموضوع جديد لأن المشاركات الفرعية لا يلتفت إليها الكثير من الأعضاء.

تمام استاذنا الله يحفظك والكود يعمل بكفاءة اشكرك واعتذر
احترامى الشديد لشخصك الكريم جدا

لا داعي للاعتذار أخي العزيز أبا الحسن
الفكرة في أنه يفضل طرح موضوع جديد لأي مشكلة ، ويمكنك في الموضوع الجديد الإشارة للموضوع الذي أخذت منه الكود ليتابع الأعضاء المشكلة بشكل أفضل
وصدقني مع الوقت أنا نفسي أنسى ما قدمت ، فالأفضل دائماً البدء من جديد مع الإشارة للقديم
وفقني الله وإياك لكل خير