I'm trying to gin up the code to determine if a cell in a worksheet
validates data from a list and if yes, what list is in use. What I
have so far is:

sub Find_Val()
dim rCell as range

For Each rCell In ActiveSheet.UsedRange
If rCell.Validation.Type = xlValidateList Then MsgBox
rCell.Validation.Formula1
Next rCell

end sub

This generates an error. Can anyone suggest valide code to do this?