The Cell value will be [ 163 Serviced with 8 ml Inspection Symbol #: 67]
The string Inspection Symbol #: is in all the cells. The value 67 is different in the cells.
I would like the static Inspection Symbol #: and the end variable to be vbRed font
Loop through each cell until empty cell, start at D6
lastRow = destSht.Cell s(destSht.Rows.Count, "D").End(xlUp).Row
MLastRow = 6
'The Range that contains the substring you want to change color
For Each Value In Range("D6:D" & lastRow)
Ustr45 = Value
substr = "Inspection Symbol #: " 'The text you want to change color
sNum = sNum - 1
dNum = dNum - 1
MLastRow = MLastRow + 1
Next Value
The string Inspection Symbol #: is in all the cells. The value 67 is different in the cells.
I would like the static Inspection Symbol #: and the end variable to be vbRed font
Loop through each cell until empty cell, start at D6
lastRow = destSht.Cell s(destSht.Rows.Count, "D").End(xlUp).Row
MLastRow = 6
'The Range that contains the substring you want to change color
For Each Value In Range("D6:D" & lastRow)
Ustr45 = Value
substr = "Inspection Symbol #: " 'The text you want to change color
sNum = sNum - 1
dNum = dNum - 1
MLastRow = MLastRow + 1
Next Value