If I ran it a second time, I got an error -- it's trying to add validation rules
to a range that already has rules.

But you could add a line to delete any existing rules before you add the new
ones:

With ActiveSheet.Range("C2:C11").Validation
.Delete
....rest of code

JMay wrote:

On page 189 of Excel 2003 Programming - Inside/Out an
Example is given to set Validation criteria for 10 cells in Column C

Before Entering anything into cells C2:C11 I created (in a std module):

Sub Tester()
With ActiveSheet.Range("C2:C11").Validation
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlLessEqual, Formula1:="5000"
.InputTitle = "Credit Limit"
.ErrorTitle = "Credit Limit too High"
.InputMessage = "Enter the Customer's Credit Limit."
.ErrorMessage = "The Credit limit must be less than $5,000."
End With
End Sub

Stepping thru the code I get a R/T error 1004;
Can anyone assist me in determining why?

There doesn't seem to be any errata available for this book.

TIA,

Jim May

--

Dave Peterson