Sub Proper_Case() ' ???? ?? ?????? ?????? ? ????????? ?????????. For Each x In Range("E1:E1500") ' ? ????? Visual Basic ??? ?????????? ??????????? ??????? Proper. ' ??????? ?????????? ??????????????? ???????? ????? ? ????????? ????: ' x.Value = Application.Proper(x.Value) FirstSymb = UCase(Left(x.Value, 1)) LastSymb = LCase(Mid(x.Value, 2)) x.Value = FirstSymb & LastSymb Next End Sub