=Sheet2!A1& " " &Sheet3!A1& " " &Sheet4!A1& " " &Sheet5!A1

او هذا الكود في حدث شيت1 طبعا يحفظ الملف بامتداد xlsm

Option Explicit

Private Sub Worksheet_Activate()
Dim RG As Range
Dim sh
Dim trg
Set RG = Sheets("Sheet1").Range("a1")
RG = ""
Application.ScreenUpdating = False
For Each sh In Sheets
Set trg = sh.Range("a1")
If sh.Name <> "Sheet1" Then
RG = RG & " " & trg
End If
Next
Sheets("Sheet1").Range("a1") = RG
Application.ScreenUpdating = True

End Sub

ما شاء الله تبارك الله ممتاز استاذ حسين مامون</b> جزاك الله خيراً .... وهل من طريقة لمسح الخلايا الأخرى لكتابة كلمة واحدة فقط في الخلية الهدف بمعنى : قد أكتب كلمة في شيت 2 لغرض ما وربما أذهب إلى شيت 3 وأكتب كلمة أخرى لغرض ما أيضاً فأريد بعد الكتابة أو قبل الكتابة مثلاً خلو باقي الخلايا في الشيتات الأخرى من اي كلام موجود بها حتى لا يتم عرض كلمتين في الخلية الهدف جزاك الله خيراً .... مع العلم أني قد استخدمت الكود أفضل من الدوال لمرونته

حقيقة لم افهم شيء من طلبك
لو ممكن اعطيني مثال بالصور

يعني أنا لو في شيت 2 على سبيل المثال وأردت أن أكتب كلمة محتاج باقي الشيتات لو موجود في نفس الخلية في الشيتات الأخرى كلمة يتم مسحها أو حذفها أولاً حتى لا يتم كتابة كلمتين في الخلية الهدف



[quote = Hossein Mamoun] I really didn't understand anything about your request If possible, give me an example with pictures. [/Quote]

ارجوا أن يكون المطلوب واضح داخل الشيت

اتمنى ان يفي بالغرض
الشرح في الصفحة1

أحسنت أستاذنا جزاكم الله خيراً