Changing ActiveX control properties based on cell text

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  With CommandButton1
    .Font.Bold = InStr(1, "Roll_Stock", Target, 1) > 0
    .BackColor = IIf(.Font.Bold, vbRed, &HEEEEEE)
    .ForeColor = IIf(.Font.Bold, vbWhite, vbBlack)
  End With
End Sub