Option
Explicit
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
On
Error
GoTo
Sub_Exit
With
Target
If
.Count = 1
And
Not
Intersect(Target, Range(
"c5:d323,f5:f323"
))
Is
Nothing
Then
If
.Value <>
""
Then
Application.EnableEvents =
False
.Value = UCase$(.Value)
End
If
ElseIf
Not
Intersect(Target, Union(Columns(1), Columns(4), Columns(8), Columns(9)))
Is
Nothing
Then
Application.EnableEvents =
False
.Value = WorksheetFunction.Proper(.Value)
End
If
End
With
Sub_Exit:
Application.EnableEvents =
True
End
Sub