Please watch for unwanted carriage return:
MsgBox _
Worksheets("Feuil2").Cells.SpecialCells(xlCellType AllValidation).Count

Cordially
Pascal

"papou" a écrit dans le message de
...
Hi
To count ALL validation cells:
MsgBox
Worksheets("Feuil2").Cells.SpecialCells(xlCellType AllValidation).Count
BUT if you have different Validation types it will include all of them.

HTH
Cordially
Pascal

"HCS" a écrit dans le message de
...
hello,

i understand how to alter a validation drop down box using vb. how is it
possible to list using vb all validations drop downs that appear on a
sheet?

Cheers