Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim maj As String
If Target.Value = "" Then Exit Sub
If Not Intersect(Range("B:B"), Target) Is Nothing Then
maj = Left(Target, 1)
Target = UCase(maj) & Right(Target, Len(Target) - 1)
End If
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target = UCase(Target)
End If
End Sub