Dim Ws As Worksheet, i As Long
For each Ws in Worksheets
With Ws
.Range("A11:M250").Sort .Range("C12"), xlAscending
For i = 11 To 65536
If .Cells(i, 3) = "" Then
Exit For
Else
.Cells(i, 3).Value = UCase(.Cells(i, 3).Value): .Cells(i, 4).Value = Application.Proper(.Cells(i, 4).Value)
End If
Next i
End With
Next Ws