EXCEL VBA : How to validate value with isString or isNumeric?

Question

Here is my code below:

Dim m As String, n As Long

n = InputBox(\"Enter sales amount: \")

If n < 500 Or n > 5000 Then
ActiveCell.Value = n
ActiveCell.         


        

Answer 1

Code:

Dim m As String, n As String, sales as long
TryAgain:

n = InputBox("Enter sales amount: ")

If Not IsNumeric(n) Then
    MsgBox "Entry should be a number!"
    GoTo TryAgain
End If

sales = CLng(n)

If sales < 500 Or sales > 5000 Then
ActiveCell.Value = sales
ActiveCell.Interior.Color = RGB(255, 0, 0)
m = InputBox("Reason why increase/decrease? ")
ActiveCell.Offset(0, 1).Value = m
ActiveCell.Offset(1, 0).Select

Else
ActiveCell.Value = sales
ActiveCell.Offset(1, 0).Select
End If