number is getting converted to date

[pgharat]

Hello,

I am working on Excel 2007 VBA. I have around 7-8 excel 2007 template in which using VBA added all functionality.

In that some of the excel templates i m facing some issue of number format.
I am following below steps
1. Enter only numbers and press Tab. Excel accepts the numbers.
2. Enter date in that same cell and press Tab. Excel converts date in number and no error message disply.
3. Enter only numbers and press Tab. Excel accepts the numbers.

My problem is to avoid user to enter alphabet in that cells. I have given validation to the cell still user can enter alphabets in that cell.

The validation is as following

Selection.NumberFormat = "0"

With Selection.Validation
.Delete
.Add xlValidateWholeNumber, xlValidAlertStop, xlGreaterEqual, _
"0"
.InputTitle = rCWS.Cells(r, 2)
.ErrorTitle = rCWS.Cells(r, 2)
.InputMessage = "Type in a Numeric Value greater than or equal to 0."
.ErrorMessage = "This field Only Accepts Numeric Values greater than or
equal to 0."
End With

Help is needed on urgent basis.

Pri