You can use the IsNumeric function in VBA to check if a given cell is a number.

This function will return True if the value in a given cell is recognized as a number.

Otherwise, the function will return False.

Here is one common way to use this function in practice:

Sub CheckNumeric()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range("A" & i)) = True Then
            Range("B" & i) = "Numeric Value"
        Else
            Range("B" & i) = "Not a Numeric Value"
        End IfNext i
    
End Sub

This particular macro will check if each cell in the range A1:A9 is a number.

If a cell is a number, then “Numeric Value” will be returned in the corresponding cell in the range B1:B9.

If a cell is not a number, then “Not a Numeric Value” will be returned instead.

The following example shows how to use this syntax in practice.

Example: How to Use IsNumeric in VBA

Suppose we have the following column of values in Excel:

Suppose we would like to check if each cell in column A is number.

We can create the following macro to do so:

Sub CheckNumeric()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range("A" & i)) = True Then
            Range("B" & i) = "Numeric Value"
        Else
            Range("B" & i) = "Not a Numeric Value"
        End IfNext i
    
End Sub

When we run this macro, we receive the following output:

Here are some interesting things to note from the output:

• Numbers with decimals are recognized as numbers.
• Percentages are recognized as numbers.
• Dates are not recognized as numbers.
• Text with numbers are not recognized as numbers.

Note: You can find the complete documentation for the VBA IsNumeric function .