макрос в excel (vba) закрашивание ячеек

[Alex_91]

вот у меня макрос, он разлагает содержимое столбца ячейки разделенные пробелом на составляющие, где каждый разделенный компонент будет оформлен отдельным стоолбцом. и тут же надо изменить шрифт той ячейки где содержиться символ "h" на красный цвет.

 Sub mak()
 Dim d As String
 Dim dl As String
 Dim qw() As String
 y = 0
 NumRow = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To NumRow
 s = Cells(i, 1)
 qw = Split(s)
 For k = LBound(qw) To UBound(qw)
 If qw(k) <> "" Then
 y = y + 1

 IF INSTR(qw(k),"h")THEN COLUMNS(Y+1).Font.ColorIndex = 3

 Cells(i, y + 1) = qw(k)
 End If
 Next k
 y = 0
 Next i
 End Sub

разделять то разделяет а вот с изменением шрифта какие то проблемы