More Than One Data validation For the Same Cell

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then


If Not IsNumeric(Target) Then
    MsgBox "enter a number in cell A1"
    Range("A1").ClearContents
    Range("A1").Activate
    End If
    End If
           Dim LResult As Long

        LResult = Len(Target)
If LResult > 7 Then
MsgBox "No more then 7 digits , bonehead"
    Range("A1").ClearContents
    Range("A1").Activate


 End If
End Sub

this goes into your worksheet module, sets A1 as the target

You might need to use a macro triggered by the worksheet change event to test for this more complex criteria.

Hi,

If you don't need a macro then use this in Tools > Data Validation

=AND(ISNUMBER(A1),LEN(A1)<=7)

VBA Noob

Hi cgi_pro,

Thanks for the feedback.

Glad I could help

VBA Noob