Macro for finding unwanted cell contents

[rhino4eva]

I have a excel sheet that has a single column starting in A1 and ending at A96. Each cell in this column should contain a 7 digit number apart from two cells that contain the letters "CMV" and "NEG". i need a vba macro to search form a1 to a96 and alert the user with a message box if any cell contains any text other than "CMV" and "NEG" or is not a 7 dgit number

has anyone any ideas

 

[shg]

Sub test()
    Dim cell      As Range
    Dim v         As Variant
 
    If WorksheetFunction.CountA(Range("A1:A96")) Then
        For Each cell In Range("A1:A96") _
            .SpecialCells(xlCellTypeConstants, _
                          xlNumbers + xlTextValues + xlLogical + xlErrors)
            v = cell.Value2
            Select Case VarType(v)
                Case vbDouble
                    Select Case v
                        Case Is < 1000000, Is > 9999999, 1234567
                            GoTo Oops
                    End Select
                Case vbString
                    Select Case v
                        Case "CMV", "NEG", "RPT"
                        Case Else
                            GoTo Oops
                    End Select
                Case Else
                    GoTo Oops
            End Select
        Next cell
    End If
    Exit Sub
 
Oops:
    cell.Select
    MsgBox "Baaaad!"
End Sub

 

[rhino4eva]

thanks shg for being so understanding. i am not very good at explaining really.
The last request for help was to detect if "RPT" was included in a string

ie

RPT1234567 = ok becuase RPT was used as a prefix