Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "G" Then
ActiveSheet.Shapes.Range(Array("TextBox " & Target.Row / 2)).Select
Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
'Target.Offset(0, -1).Font.Bold = True
Else
'Target.Offset(0, -1).Font.Bold = False
End If
End Sub