عليكم السلام ورحمة الله وبركاته
الاخ الفاضل ريان أحمد
اتفضل اخي الفاضل الكود التالي للعلامة الاستاذ عبدالله باقشير
Sub kh_RngProper()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
Cel.Value = StrConv(CStr(Cel), vbProperCase)
Next
End Sub
بالموضوع التالي
http://www.officena.net/ib/index.php?showtopic=52587