How do you want to automate it? Are you getting values from somewhere else or do you want to still enter the info? Let us know!
Ryan
I want to set up an automated process for someone to get into scenario manager
I still don't know what you want but here is something, let me know if this isn't it, and describe a little more what you want.
Ryan
Sub ShowScenario()
Application.Dialogs(xlDialogScenarioAdd).Show
End Sub
OK, you have shown how to invoke the Scenario Add dialog, but how do I invoke the Scenario Manager dialog?
Invoking the Scenario Manager Dialog from vba in Excel97
You can invoke the scenario manager dialog (even though there isn't a pre-defined constant with the right dialog number)
I found the right number (305 for Excel97) using the following routine,
sub FindScenarioManagerDialog
Dim dNo As Integer
On Error Resume Next
For dNo = xlDialogScenarioAdd - 10 To xlDialogScenarioAdd + 10
Application.Dialogs(dNo).Show
If MsgBox("You just viewed dialog #" & Str(dNo) & ". Shall I stop showing dialogs", vbYesNo, "Searching for Scenario Manager Dialog") = vbYes Then
Exit Sub
End If
Next
end sub
then I used Ryan's code to get the manager up
Sub ShowScenario()
Application.Dialogs(305).Show
End Sub