Re: Inserting column headers

From: Ron de Bruin (rondebruin_at_kabelfoon.nl)
Date: 09/30/04 

Date: Thu, 30 Sep 2004 16:54:45 +0200

Try this

Sub test()
    With Active***
        .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" <anonymous@discussions.microsoft.com> wrote in message news:22bf01c4a6fb$07a08920$a601280a@phx.gbl...
> How would I write a macro that:
>
> i)Inserts a new row in row 1 of my spread***
> ii)Places columns names in A1 ("Surname"),B1 ("First
> Name") & C1 ("Score") and Bolds them.
>
> Thanks in advance
>