Private Sub Worksheet_Change(ByVal Target As Range)
If Not intersect(Target,Range"A3:B103") Is Nothing Then
Application.EnableEvents = False
select case target.column
Case 1
target=UCASE(Target)
Case 2
target=Application.Proper(Target)
case Else
Target=Lcase(Target)
end select
Application.EnableEvents = True
else
exit sub
end if
End Sub