Solved: Data Validation Negitive

[BENSON]

What should I enter in the Data Validation drop box to allow user to only enter negitive numbers ie numbers less than zero like -1

Thks

[Oorang]

Set "Allow" to either "Whole Number" or "Decimal". Then set "Data" to "Less Than". Finally set "Maximum" to 0. You can also do it via VBA, but it's usually not necessary to use VBA for this task.
[VBA]Sub Example()
Dim rng As Excel.Range
Set rng = Excel.ActiveSheet.Range("E6")
With rng.Validation
.Delete 'Clear any old validation.
.Add xlValidateWholeNumber, xlValidAlertStop, xlLess, "0"
.ErrorTitle = "Invalid Entry"
.ErrorMessage = _
"This cell only accepts values less than zero (Negative Numbers)."
End With
End Sub[/VBA]