Scenario Analysis Tool

Sub ScenarioAnalysisTool()
    Dim ws As Worksheet
    Dim scenarioWs As Worksheet
    Dim baseValue As Double
    Dim scenarios As Variant
    Dim i As Long

    Set ws = ActiveSheet
    Set scenarioWs = Worksheets.Add
    scenarioWs.Name = "Scenario_Analysis"

    ' Get base case value
    baseValue = ws.Range("B1").Value ' Adjust cell reference as needed

    ' Define scenarios (percentage changes)

' ... 24 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io