Hello Don,

I have redorded this Macro code but was unable to run due to run time error.

I have email my workings and error mesage to you at your e-mail address.

I would be glad if you could help me to fix the problem.

Thank you

Low


--
A36B58K641


"Don Guillett" wrote:

From a post of mine yesterday. Modify to suit

Sub altrowformula()
For i = 2 To 12 Step 2
Cells(i, "H").Formula = "=a" & i / 2 & "+3"
Next i
End Sub


--
Don Guillett
SalesAid Software

"Mr. Low" wrote in message
...
Dear Sir,

I have the following worksheet data:

A B C D

Vehicle Speedometer Mileage
1 BBN2361 9650
2 BBN2361 10600
3 BBN2631 12800 xxxxx (+B3-B1)
4 BSK1400 8500
5 BSK1400 9320
6 BSK1400 10250 xxxxx (+B6-B4)
7 BGA2367 12500
8 BGA2367 14260
9 BGA2367 16850 xxxxx (+B9-B7)

The mileage is calculated by getting the difference between the last and
the
first speedometer reading of the same verhicle.

May I know if there is any formula that I can input at C1 and copy down to
get straight annswer at C3, C6 and C9 ? Other cells in column C is left
blank.


Thanks

Low



--
A36B58K641