Macro to bold row when certain words are found

[constantinet]

Wondering if someone might be able to help with creating a macro.
I have various words in column A and when certain words are found I need the row bold when those words are found.
So for example when words teacher, student, or class are find in column A then I need the row those words are found on to be bold from A:G.

Thanks you in advance for any help.

 

[Captain_Conman]

This code should work. (Note: The word in column A must have a capital first letter)

Sub BoldAtoG()


Dim LastRow As Long
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row


For Each C In Range("A1:A" & LastRow).Cells
C.Select
If C.Value = "Teacher" Or C.Value = "Student" Or C.Value = "Class" Then
        C.Offset(0, 6).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Selection.Font.Bold = True
    Else
    End If
    Next
End Sub

 

[alansidman]

Option Explicit


Sub BoldAG()
    Dim lr As Long, i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 1 To lr
        If InStr(Range("A" & i), "teacher") > 0 Then
            Range("A" & i & ":G" & i).Font.Bold = True
        ElseIf InStr(Range("A" & i), "student") > 0 Then
            Range("A" & i & ":G" & i).Font.Bold = True
        ElseIf InStr(Range("A" & i), "class") > 0 Then
            Range("A" & i & ":G" & i).Font.Bold = True
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "Action Complete"


End Sub

You did not capitalize the criteria so I did not also.

 

[Fluff]

You can also do that with CF
Select cols A:G > Home Tab > Conditional Formatting > New rule > Use a formula > =OR($A1="Teacher",$A1="student",$A1="Class") > select the format > OK