Popup box appears based on cell value entered
Hi,
The initial control step ( without the password )
Private Sub Worksheet_Change(ByVal Target As Range)
Dim val As Double
With Target
If .Cells.Count 1 Then Exit Sub
If Intersect(.Cells, Range("E20:L20")) Is Nothing Then Exit
Sub
If .Value < 1 Then
val = .Value
MsgBox "You are not allowed to enter " & val & " without
Manager's Approval"
.Value = 1
End If
End With
End Sub
HTH
|