Macro to create a worksheet and Sum values from each previous sheet created.

[oscarh02]

Hello! Thank you in advance for your time!!

I need to generate a macro that creates a new worksheet, SUM values from each previous sheet done made and also define the number of sheets will be created. Besides I want the name of that new sheet be related to the result of the SUM

e.g.

On Sheet1 A1=1
On Sheet2 A1=2 (from Sheet1A1+1) (Sheet2 will be named 2)
So on Sheet3 A1=3 (from Sheet2A1+1) (Sheet3 will be named 3)

Looking forward your help.

Again, thank you very much!

Kind Regards.

 

[footoo]

Sub v()
Worksheets.Add.Name = Sheets.Count + 1
[A1] = Sheets.Count
End Sub

 

[oscarh02]

Hi footoo, thank you very much for your help. is it possible to create a macro that SUM alphanumeric values?
e.g. AA1 on Sheet1
AA2 on sheet2?

Again, thank you very much!

 

[footoo]

Sub v()
Worksheets.Add.Name = "AA" & Sheets.Count + 1
[A1] = "AA" & Sheets.Count
End Sub

Or perhaps :

Sub v()
Dim s$, i%, ns$
s = Sheet1.Name
For i = 1 To Len(s)
    If Not IsNumeric(Mid(s, i, 1)) Then ns = ns & Mid(s, i, 1)
Next
Worksheets.Add.Name = ns & Sheets.Count + 1
[A1] = ns & Sheets.Count
End Sub