How check in VBA if a cell value is a four-digit number?

[sylvest]

How check in VBA if a cell value is a four-digit number?

I have a three-cell range named 'Happy'. How to determine if the numerical in put in all the 3 cell is equal ?only the range name should be used to refer to every cell.

 

[wigi]

How check in VBA if a cell value is a four-digit number?

If IsNumeric(Range("A1")) And Len(Range("A1")) = 4 Then
'...
End If

Wigi

 

[wigi]

I have a three-cell range named 'Happy'. How to determine if the numerical in put in all the 3 cell is equal ?only the range name should be used to refer to every cell.

With Range("Happy")
    If .Cells(1) = .Cells(2) And .Cells(1) = .Cells(3) Then
        MsgBox "They're all equal to each other"
    Else
        MsgBox "There are differences"
    End If
End With

Wigi

 

[Boller]

Depends what you mean by "a four digit number".

For example, using wigi's code in his/her first post, 1.11 will be read as a 4 digit number.