طلب مساعده تعديل على كود مسح كل شيء بيانات وصور

[محمد عبد الناصر]

السلام عليكم 
الكود هذا يمسح كل شيء بيانات او صور 

المطلوب التعديل على هذا الكود ليخصص عملية المسح لشيت محدد وليكن اسم الشيت 

mohsen
و
elshrok

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
 Rows("4:100").Clear
End Sub

 

[محمد عبد الناصر]

up

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اضف هذا السطر قبل جملة  For

If ActiveSheet.name <> "mohsen" Or ActiveSheet.name <> "elshrok" Then Exit Sub

 

[محمد عبد الناصر]

شكراااااااااااااااااااا