Sub BoldeRaZaTor_And_PropeRaZaTor()
Dim rng, c As Range
Set rng = ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Each c In rng
If Len(c.Value) Then
If Not c.HasFormula Then
c = StrConv(c.Text, vbProperCase)
c.Characters(Start:=1, Length:=1).Font.Bold = True
Else
c.Formula = "=PROPER(" & Replace(c.Formula, "=", "") & ")"
End If
End If
Next
End Sub