VBA проверяет столбец в ячейке на наличие букв и отображает слово в соответствующей ячейке

Try ...

Sub PartNumber()

Dim xCell As Range

For Each xCell In Range("firstDigit")
    If xCell Like WorksheetFunction.Rept("[a-zA-Z]", Len(xCell)) Then
        xCell.Offset(0, 2) = "Alpha Only"
    Else
        xCell.Offset(0, 2) = "Contains non Alpha Char"
        xCell.Offset(0, 2).Interior.Color = vbYellow   'To color the cell that has string
    End If
Next xCell

End Sub