Сначала вы должны выбрать текст, который хотите сделать полужирным:
richTextBox1.SelectionStart = 0;
richTextBox1.SelectionLength = 13;
И затем вы можете определить стиль для выделенного текста:
richTextBox1.SelectionFont = new Font(richTextBox1.Font, FontStyle.Bold);
Как предлагается в моем комментарии: используйте метод Application.Intersect , а также оператор Select Case .
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AffectedCells As Range
Set AffectedCells = Intersect(Target, Target.Parent.Range("E7:V7"))
If Not AffectedCells Is Nothing Then
Dim Cell As Range
For Each Cell In AffectedCells
Select Case Cell.Value
Case "-"
Target.Parent.Rows("21:50").Hidden = True
Case "open"
Target.Parent.Rows("21:30").Hidden = False
Target.Parent.Rows("31:50").Hidden = True
Case "close"
Target.Parent.Rows("31:50").Hidden = False
Target.Parent.Rows("21:30").Hidden = True
Case "both"
Target.Parent.Rows("21:50").Hidden = False
End Select
Next Cell
End If
End Sub