Try something like:

Sub TestValidation()

With ActiveCell.Validation
If .Type = xlValidateList Then
MsgBox "It's a drop-down list!"
Else
MsgBox "It's not a drop-down list!"
End If
End With

End Sub

---
Of course if the active cell doesn't contain validation,
the macro will error out.

HTH
Jason
Atlanta, GA

-----Original Message-----
Hi everyone,
I want to know how to distinguish between a cell that
displays a drop down list in a cell and another that does
not.

Thank you.
.

Hi Jason
Your solution work fine
Thank you very much and have a good day
Ja