Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("h6:l11")) Is Nothing Then
        Target.Value = UCase(Target.Value)
        If Asc(Target.Value) > 122 Then
            MsgBox "Please change keyboard language"
            Target.Activate
            Target.ClearContents
            Application.EnableEvents = True
            Exit Sub
        End If
        If Target.Address(0, 0) = "L11" Then
            Me.Range("h6").Activate
        ElseIf Target.Column = 12 Then
            Target.Offset(1, -4).Activate
        Else
            Target.Offset(0, 1).Activate
        End If
    Else
        MsgBox "Out of the box", vbInformation
        Target.ClearContents
    End If
    Application.EnableEvents = True
End Sub