Some wordwrap problems:

Sub LinearFill()
Dim StepValue
Range("T1:T11").Select
StepValue = (Selection(Selection.Count) - _
Selection(1)) /(Selection.Count - 1)
Selection.DataSeries Rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, _
Step:=StepValue, Trend:=False
End Sub

or manually
select your range and do Edit=Fill=Series.

select Row and linear

--
Regards,
Tom Ogilvy

"Tom Ogilvy" wrote in message
...
Sub LinearFill()
Dim StepValue
Range("T1:T11").Select
StepValue = (Selection(Selection.Count) - Selection(1)) /
(Selection.Count - 1)
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=StepValue, Trend:=False
End Sub

--
Regards,
Tom Ogilvy

"teepee" wrote in message
...
Can anyone help

I have a value for T1 and a value for T11 (which might be greater or
lesser.)

I want to fill T2 through T10 with a series of averages to smoothly fill
the
gap so to speak.

So if T1 were 1 and T11 were 11, the series would count out 1 to 11
And if T1 were 22 and T2 were 2, then the series would count backwards
from
22 to 2, even number only.

Anyone know how?