Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Integer
    Application.EnableEvents = False
    With ActiveSheet
        If Not Intersect(Target, .Range("b2", _
            .Range("b" & .UsedRange.Rows.Count))) Is Nothing Then
            x = Target.Offset(0, -1)
            Select Case x
                Case 1
                    If Target.Value < 1.1 Or Target.Value > 1.4 Then
                        MsgBox "Please select number between 1.1 - 1.4 only.", vbInformation
                        Target.Value = ""
                    End If
                Case 2
                    'Your code
                Case 3
                    'Your code
                Case 4
                    'Your code
                Case 5
                    'Your code
            End Select
        End If
    End With
    Application.EnableEvents = True
End Sub