Good Resource for [Like] (...and other String Functions)

Sub TestForNumeric()
Dim sWord As String, iLoop As Long

For iLoop = 1 To 25
    sWord = Cells(iLoop, 1)

     'Set the default value
    Cells(iLoop, 2) = "All Alpha"

     'Change the value if there is a Number in the string
    If sWord Like "*#*" Then Cells(iLoop, 2) = "Contains Number"
Next iLoop
End Sub