Range("b4").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlLess, Formula1:="99999999"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = Warning
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Try this, it should work
goodluck- Todd