Using InputBox for forecast sheet: simple code

Question

    Sub forecasting()

    Dim rng As Range
    

    Set rng = Application.InputBox("Select a range to forecast on", "Forecasting", Type:=8)