Change the code as shown in red:-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Addx As String
Dim Rng As Range
If Target.Address = "$C$19" Then
'The two lines below are moved below the line above, Or you code will run agin when the Input Box value is inserted.
Addx = Target.Validation.Formula1
Set Rng = Range(Right(Addx, Len(Addx) - 1))
Select Case Target.Value
Case Is = Rng.Cells(1, 1) 'First Drop Down Item
Call MacroA
Case Is = Rng.Cells(2, 1) 'Second Drop Down Item
Call Get_WO_NUM
Case Is = Rng.Cells(3, 1) 'Third Drop Down Item
Call MacroC
Case Is = Rng.Cells(4, 1) 'Fourth Drop Down Item
Call MacroD
End Select
End If
End Sub
Sub Get_WO_NUM()
Range("C47").Value = Application.InputBox("Please Provide the Work Order #")
End Sub
Bookmarks