------------------------------------------------------
Dim I, j As Integer
j = .Range("A2").End(xlDown).Row
For I = 2 To j
----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("A2:BB5000")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Else
End If
End Sub
---------------------------------------------------------------------------------
.Columns("H:H").Value = UCase(Left(h, 1)) & LCase(Right(h, Len(h) - 1))