Trying to demo Code, but get error
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
|