لتشغيل ماكرو على أوراق متعددة في نفس الوقت دون تشغيله واحدًا تلو الآخر

[amrxp9]

اريد جعل هذا الكود يعمل علي جميع الاوراق في الاكسل مره واحده 
هذا الكود لجعل اول حرف في الكلمة يكون كابتل
Sub kh_RngProper()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbProperCase)
Next
End Sub

[عبدالفتاح في بي اكسيل]

مجرد تخمين

Sub kh_RngProper()
Dim Cel As Range
Dim ws As Worksheet
For Each ws In Worksheets
For Each Cel In ws.UsedRange
    Cel.Value = StrConv(CStr(Cel), vbProperCase)
Next
Next ws
End Sub

 

[elmansyeswa]

جزاك الله خيرا وجعله الله بميزان حسناتك