Sub plokkRasvaseks()
  ActiveCell.CurrentRegion.Font.Bold = True
End Sub