Файл приложить не могу. И Сергея файл тоже скачать не могу - макросы там
Код в модуль листа
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d_ As Range
Set d_ = Intersect(Target, Range("E2:F700"))
If Not d_ Is Nothing Then
Application.ScreenUpdating = 0
Application.Calculation = 3
Application.EnableEvents = 0
For i = 1 To d_.Count
If d_(i) <> "" Then
d_(i) = WorksheetFunction.Proper(d_(i))
End If
Next i
Application.EnableEvents = 1
Application.Calculation = 1
Application.ScreenUpdating = 1
End If
End Sub
[/vba]