Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 15 And Target.Column = 1 Then
Target.Value = UCase(Target.Value)
End If
End Sub
If Target.Row = 15 And Target.Column = 1 Then
If Target.Column = 2 Then
If Target.Row = 15 And Target.Column = 1 Then
If Target.Row >= 15 And Target.Row <= 25 And Target.Column = 1 Then