أخي الكريم //
حل اخر بجانب حل اخي الاستاذ/ قنديل الصياد بارك الله فيه وجزاه خيرا
استخدم الكود التالي في حدث الصفحة
واكتب حروف صغير سوف تتحول الي حروف كبيرة (كبتل)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ErrTrap
With Target
If .Count = 1 Then
.Value = UCase(.Value)
End If
End With
ErrTrap:
Application.EnableEvents = True
End Sub
التطبيق بالمرفقات
الكتابة بحروف كبيرة.rar