activeCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True