Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Target.Value, 1) = "*" Or Right(Target.Value, 1) = "+" Then
Target.Font.Bold = True
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 61