flag =
False
If
InStr(1, .Cells(i, 24),
"Development"
) > 0
Then
flag =
True
If
InStr(1, .Cells(i, 24),
"Process Change"
) > 0
Then
flag =
True
If
flag =
True
Then
.Cells(i, 5).Value =
"tbd"
.Cells(i, 5).HorizontalAlignment = xlCenter
.Cells(i, 5).Font.Color = RGB(0, 0, 0)
Else
.Cells(i, 5).Value =
"-"
.Cells(i, 5).HorizontalAlignment = xlCenter
End
If