Data Validation List

[howard]

I have se up a data validation list on several sheet and each sheet has the following code


The arrows appears and data validation works when set up, but when I go to any of the sheets, the arrows appears but the drop down arrow does not activate

 Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Long
Dim c As Range

Application.ScreenUpdating = False

    If Target.Address(0, 0) <> "A2" Then Exit Sub
    Columns("B:M").Hidden = False
    Set c = Range("B4:M4").Find(Target, LookIn:=xlValues, LookAt:=xlPart)
    Columns("B:M").Hidden = True

    If Not c Is Nothing Then
    c.EntireColumn.Hidden = False
    Else
    MsgBox Target & " not found", 48, "ERROR"
    End If

Application.ScreenUpdating = True

End Sub

It would be appreciated if someone could assist me