Dannottheman
Board Regular
- Joined
- Dec 24, 2020
- Messages
- 55
- Office Version
- 2007
Hi,
I would like to add several possibilities of words to the statement below. Right now it's considering only "quiz", I would like to add other words such as "unit", "assessment", "test". Right now I have to manually update this each time I run the VBA. I experimented adding it but I am not getting it right. Any help would be appreciated.
Sub Dannottheman3()
Dim Cl As Range
For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
If LCase(Cl.Value) Like "*quiz*" Then
Cl.Interior.Color = rgbLightBlue
Cl.Font.Bold = True
End If
Next Cl
End Sub
I would like to add several possibilities of words to the statement below. Right now it's considering only "quiz", I would like to add other words such as "unit", "assessment", "test". Right now I have to manually update this each time I run the VBA. I experimented adding it but I am not getting it right. Any help would be appreciated.
Sub Dannottheman3()
Dim Cl As Range
For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
If LCase(Cl.Value) Like "*quiz*" Then
Cl.Interior.Color = rgbLightBlue
Cl.Font.Bold = True
End If
Next Cl
End Sub