Excel VisualBasic Script

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