Solved: Option to extend trend line on graph

[BENSON]

Ideally I would like to amend the code belowto allow the user the option to select the amount of periods to advance the trend line.Maybe by Msg or a control form.It is currently set for 3 periods,

thks Pete

[VBA]
Sub OptionButton9_Click()
'
' OptionButton9_Click Macro
' Macro recorded 2013/07/10 by Peter Beckett
'
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(2).Trendlines(1).Select
With Selection
.Type = xlLogarithmic
.Forward = 3
.Backward = 0
.InterceptIsAuto = True
.DisplayEquation = False
.DisplayRSquared = False
.NameIsAuto = True
End With
ActiveChart.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlLogarithmic
.Forward = 3
.Backward = 0
.InterceptIsAuto = True
.DisplayEquation = False
.DisplayRSquared = False
.NameIsAuto = True
End With
ActiveWindow.Visible = False

Range("D17").Select
End Sub
[/VBA]

[mancubus]

you can use inputbox




[VBA]
...
...
prd = Application.InputBox("Enter the numer of periods to extend.", "FORWARD", , , , , , 1)
...
...
.Forward = prd
...
...
[/VBA]