أخي العزيز هذا هو الكود الذي أضافه لك الأخ
t = "ي باقي متوسطة طالب عبد الله**بئر الشهداء** من اعدادمسعود ـ ـ "
n = 0
Do While n < 5000
t = Right(t, Len(t) - 1) & Left(t, 1)
[o4,p4,q4,r4,s4,t4,u4,v4,w4,x4,y4,z4,aa4,ab4] = t
w = 0.1
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
وقد وضعه في الحدث التالي في صفحة type
Private Sub Worksheet_Activate()
End Sub
بامكانك الدخول إلى لوحة البرمجة بالضغط على ALT + F11 وغير نوعلا الحدث إلى
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
وضع الكود ضمنه
فيتحقق ما تريد
أهلا بك