Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
Select Case Target.Column
Case 2, 4, 12, 14
If Target.Value = "X(!)" Then
x = Application.InputBox("Enter amount", Type:=1)
If TypeName(x) = "Boolean" Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).Value = x
Application.EnableEvents = True
End If
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 2, 4, 12, 14
If Target.Value = "X(!)" Then
x = Application.InputBox("Enter amount", Type:=1)
If TypeName(x) = "Boolean" Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).Value = x
Application.EnableEvents = True
End If
End Select
End Sub