Hi

I have total 4 drop-downs in my sheet A column - Resource Designation , B - User Type, C - Organizational Unit and D - Country.

Previously I have posted my question here for one drop-down Resource Designation. I got the below code from the Forum.

I am trying to change the code for the other three drop-downs as well but getting some errors not code wise but not working as expected.

Can you please help me in combining the same code to work for all 4 drop-downs?


Thanks
Mounika


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cl
Dim MsgTest As Boolean
Set rng = Intersect(Target, Range("A10:A500"))

If rng Is Nothing Then Exit Sub

Application.EnableEvents = 0
Application.ScreenUpdating = 0

On Error Resume Next
MsgTest = False
For Each cl In rng.Cells
If cl.Validation.Value = False Then
If Not MsgTest Then
    MsgBox ("Error : Please select the correct value from the Resource Designation drop-down")
    MsgTest = True
  End If
End If
Next



Application.EnableEvents = 1
Application.ScreenUpdating = 1
End Sub