Parse Worksheet Names Directly In Code

I am trying to add new worksheets at the end of the existing ones, with the name "Scenario " & i (i being an integer for the next scenario).

My idea is to parse the Worksheet names, counting how many times the string "Scenario " appears, and then add a new Worksheet with that name and index i+1. Here is the

Public Sub store_data_Click()

Dim NameWS, prev_sheet As String
Dim iprev, iws, iscenario As Integer

iscenario = 1
For iws = 1 To Worksheets.Count
If Find(Sheets(iws).Name, "Scenario ") = True Then
iscenario = iscenario + 1
End If

1.- Find (8th line) does not seem to be the right procedure to use; how could I do this in a clean/direct (i.e. not writing the names into a dummy worksheet and using the find function) way?

2.- How could I substitute the new Worksheet ("Scenario " & i) formulas for values without having to select all the cells and then use paste values (not so elegant).

3.- Connecting to a previous post: How could I define *exactly* the position to paste "Autoshape 1"?