VBA Code - Filter only on numbers

[OilEconomist]

Update, title should read special characters and numbers. Apologies.

Thanks in advance for any recommendations. I'm looking for VBA code that will filter on anything that is not a word. The entry will be one entry (i.e. not a sentence). I am looking to filter on anything that is not a word. For example, I want to filter on anything that begins with a number or a character. So like the following:
(hello
99
99,000
?

Here is the start of the code. I put a ? in the criteria as that's what I'm trying to figure out.

Sub Test()
Sheets("Sheet1").Activate
Range("A8:G8").AutoFilter Field:=5, Criteria1:="?"
Range("A9:G1000").SpecialCells(xlCellTypeVisible).Delete
ActiveSheet.ShowAllData
End Sub

 

[Michael M]

Try this way...original code modified from @Sahadev Reddy

Sub MM1()
    Dim R As Range, c As Range, rng As String, I As Integer
    Application.ScreenUpdating = False
    rng = "(1234567890!().$&)" ' add characters as required
    For Each c In Range("A9:G1000")
        For I = 1 To Len(c)
            If (Len(rng) - Len(Replace(rng, Mid(c, I, 1), "")) <> 0) Then
                c.Font.ColorIndex = 3
                Exit For
            End If
        Next I
    Next c
   With Range("A8:G1000")
   .AutoFilter
    .AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
    With Range("A8:G1000").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
 .Range("A9:G1000").SpecialCells(xlCellTypeVisible).Delete 'this will do individual cells...if you want entire row you will need Entirerow.delete
 End With
 Application.ScreenUpdating = True
End Sub