エクセルVBA、文字列の中に、数字(半角、全角とも)が含まれていない場合、色をつけたい。

以下を試してみてください。
Excel2016で確認しています。

Sub chkNum()
Dim wkSh As Worksheet
Dim wkRange As Range
Dim wkAddRange As Range
Dim wkCell As Range
Dim wkStr
Dim wkI
Dim wkFlg
    
    Set wkSh = ActiveSheet
    
    'チェック対象セル群を決定
    Set wkRange = wkSh.Range("A2, I2, E2")
    For wkI = 6 To 102 Step 4
        Set wkAddRange = wkSh.Range("A" & wkI & ",I" & wkI & ",E" & wkI)
        Set wkRange = Union(wkRange, wkAddRange)
    Next wkI
    
    'セル毎に数字を含むかチェックする
    For Each wkCell In wkRange
        wkStr = StrConv(wkCell, vbNarrow)  '半角に統一してからチェックする
        wkFlg = 0
        For wkI = 1 To Len(wkStr)
            If Mid(wkStr, wkI, 1) >= "0" And Mid(wkStr, wkI, 1) <= "9" Then
                wkFlg = 1
                Exit For
            End If
        Next wkI
        
        If wkFlg = 0 Then
       'If wkFlg = 0 And (Trim(wkCell) <> "") Then
            '                  ↑セルがヌルおよびブランクのみの場合、処置しない（必要でもないけど）
            '数字を含まない場合、セルの文字フォントの属性を変更する
            wkCell.Font.Color = RGB(255, 0, 0)
            wkCell.Font.Bold = True
        Else
            '設定を戻す
            wkCell.Font.ColorIndex = xlAutomatic
            wkCell.Font.Bold = False
        End If
    Next
    
End Sub

条件付き書式でうまくいかないとのことですが
どううまくいかないのかわかりませんが
判定処理だけVBAとして、それを条件付き書式に使用すればできませんか？

判定条件は、
半角、全角問わず、1234567890、１２３４５６７８９０の数字が入って【いない】
とのことなので、
「0～9または、０～９が１文字でも含まれているか」の結果を否定すればよろしいかと。

例えば、次のようにすれば、数字が含まれていない時、TRUEが返ります。

Public Function notExistsDigits(ByVal sValue As String) As Boolean

　　notExistsDigits = Not sValue Like "*[0-9０-９]*"

End Function

ちなみに、上記の例では、長さ０の文字列もTRUEが返ります。

条件付き書式
=SUMPRODUCT(ISNUMBER(VALUE(MID(A1,COLUMN(OFFSET($A$1,,,,LEN(A1))),1)))*1)=0

↑
これで出来るはずですが

ガイドラインの
２．Ⅵ「同一あるいは類似の内容の質問や回答を連続してあるいは多数投稿する行為」
に違反する内容の回答をしてしまったため、消しました。

すみませんでした。