ما هو الخطأ بالكود المرفق

[محمود_الشريف]

السادة الأفاضل المحترمين

إخوانى جميعا فى الله

أريد أن أعرف ما هو هذا الخطأ بالكود التالى 

فكلما أكتبه تظهر لى رساله خطأ تختص ((  . )) بهذه النقطه الفاصله

اليكم الكود

Sub CreateHeaderTemplate()
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup.LeftHeader = "ما تريد أن تكتبه".CenterHeader = "ما تريد أن تكتبه".RightHeader = "ما تريد أن تكتبه" End With
Next ws
End Sub

تم تعديل يناير 16, 2014 بواسطه محمود_الشريف

[رجب جاويش]

السلام عليكم

أخى الفاضل

يكون الكود بالشكل التالى

Sub CreateHeaderTemplate()
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.LeftHeader = "ما تريد أن تكتبه"
.CenterHeader = "ما تريد أن تكتبه"
.RightHeader = "ما تريد أن تكتبه"
End With
Next ws
End Sub

[قنديل الصياد]

[محمود_الشريف]

أخى فى الله

الأستاذ القدير / رجب جاويش

بارك الله فيكم

وزادكم الله من فضله ونعمه

وتقبلوا منى وافر الإحترام والتقدير

[محمود_الشريف]

بارك الله فيكم 

الأستاذ الرائع / قنديل الصياد

على مروركم الكريم

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

اشراقات جديدة في الرد علي المواضيع

نتمني ان تستمر دائما ... اصلك دايما بتوحشنا والله

تقبل خالص تحياتي

[رجب جاويش]

أخى الحبيب / قنديل الصياد

جزاك الله كل خير على هذا  المرور العطر والكلمات الطيبة

[رجب جاويش]

أخى الفاضل / محمود الشريف

 شكرا جزيلا على هذه الكلمات الطيبة

وجزاك الله كل خير

[رجب جاويش]

أخى الحبيب / حمادة عمر ( أبو سما )

والله لك وحشة كبيرة

شكرا جزيلا أخى الحبيب على شعورك الطيب

وكل عام وأنتم بخير