Sub InsertHeader() Range("A1:C1").Select With Selection.Font .Name = "Arial" .FontStyle = "Bold" .Size = 14 End With End Sub