amrxp9

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