Заменить автоматически первую букву в ячейке на заглавную.

[agregator]

В Ecxel автоматически в пердложении меняется первая буква на заглавную после ". ". Как автоматически заменить первую букву в ячейке на заглавную. Есть макрос, который который меняет первую букву на заглавную, но все остальные буквы меняет на строчные.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCell As Range
For Each oCell In Target
On Error GoTo NoText
oCell = UCase(Left(oCell.Text, 1)) & _
LCase(Right(oCell.Text, Len(oCell.Text) - 1))
Next
Exit Sub
NoText:
End Sub
Как сделать, чтобы меняласть на заглавную только первая буква в ячейке?

[viter.alex]

Замените эту строчку кода

oCell = UCase(Left(oCell.Text, 1)) & _
LCase(Right(oCell.Text, Len(oCell.Text) - 1))

На такую:

oCell = UCase(Left(oCell.Text, 1)) & _
Right(oCell.Text, Len(oCell.Text) - 1)

Т.е. нужно просто убрать функцию LCase, которая переводит символы в нижний регистр.

[agregator]

Спасибо, то что надо.