Something like

.Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R1C1:R10C1)"

which isets the cell to =AVERAGE($A$1:$A$10). You can replace the numbers
with variables, like so

.Cells(lExcelRow + 3, 1).FormulaR1C1 = "=AVERAGE(R" & rowStart & "C1:R!
& rowEnd & "C10)"

--
HTH

Bob Phillips

"Ian B" <ian@docspro.co.nz> wrote in message
news:%23BQm6REhFHA.572@TK2MSFTNGP15.phx.gbl...
> I am not an Excel person but have a VB6 routine which writes data to an
> Excel sheet and then averages the data as below for each state
> 310: Set oWB = oXL.Workbooks.Open(sMaster)
>
> 330: With oWB.Worksheets("Sheet1")
> 340: .Cells(lExcelRow + 2, 1) = "AVERAGES FOR" ' NAME
> 350: .Cells(lExcelRow + 2, 2) = sState
'
> STATE
> 360: .Cells(lExcelRow + 2, 3) = rsKPI![AvgNetPL] ' NET
> P&L
> etc, etc
> No problem thus far.
> I am doing averages in VB because I can't get a formula into Excel using
> lExcelRow + 2, 3 notation
> After I put the averages in I want to Bold the row (lExcelRow + 2,13) ie
the
> row with the subtotal
>
> All my attempts thus far have failed, probably because I am recording a
> macro in Excel and trying to modify that code.
>
> I'm sure to anyone with a modicum of Excel coding it will be a 10 second
> answer.
> Any help appreciated
>
> TIA
>
> Ian B
>
>
>