VBA Conditional Formatting based on another Cell

I have Columns B:H with row 2 being headings. If a tag column three columns after the last column has the word 'Attend', I would like that cell to be shaded. The last column will change as new columns are added. Can someone correct the criteria in the conditional formatting below?

Range("B4").Select ' Selects 4th row in Row# Col
'Select ActiveCell to 2nd Last Row -- do not include total row -- in column B
Range(ActiveCell, Cells(LastRow - 1, ActiveCell.Column)).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ActiveCell.end(XLtoRight).offset(3,0)=""Attend"""      'Criteria is not correct
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 24
        .TintAndShade = -0
    End With

Thank you for your help.