Hi,

Please see the below coding, This working fine, But is accepting the decimal
value also(.),

What i required is when ever i type dot(.) it need to show msg "Please Enter
Correct Number"

Eg:1) 6161.8976, 2)98450.0, 3)8.874 need to show msg "Please Enter Correct
Number" and delete the what ever typed that means nullstring in that textbox.

Private Sub TextBox11_Change()
Worksheets("FOR").Activate
Range("C1").Select
Range("C1").Value = TextBox11.Value
If Not IsNumeric(TextBox11.Value) And TextBox11.Value < vbNullString Then
MsgBox "Please Enter Correct Number"
TextBox11.Value = vbNullString
End If
End Sub

I'm very newbie for this coding. please anyone can help me on this.

Thanks in advance
Deen