Inserting column headers

[Steve]

How would I write a macro that:

i)Inserts a new row in row 1 of my spreadsheet
ii)Places columns names in A1 ("Surname"),B1 ("First
Name") & C1 ("Score") and Bolds them.

Thanks in advance

 

[Ron de Bruin]

Try this

Sub test()
With ActiveSheet
.Range("A1").EntireRow.Insert
.Range("A1").Value = "Surname"
.Range("B1").Value = "First Name"
.Range("C1").Value = "Score"
.Range("A1:C1").Font.Bold = True
End With
End Sub

 

[Tom Ogilvy]

rows(1).Insert
Range("A1:C1").Value = Array("Surname","First Name","Score")
Range("A1:C1").font.bold = True

 

[Steve]

Thanks Ron

-----Original Message-----
Try this

Sub test()
With ActiveSheet
.Range("A1").EntireRow.Insert
.Range("A1").Value = "Surname"
.Range("B1").Value = "First Name"
.Range("C1").Value = "Score"
.Range("A1:C1").Font.Bold = True
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steve" <[email protected]> wrote in

message news:[email protected]...