create button to add new sheet in first sheet and calculate including newly added sheet

[prakashkumar]

hi all ,
create button in sheet 1 and name as menu , if i press on button , new sheet should create and name as page 1 at the same time A1 (of page1) cell value should display in menu page.
then ,
f i press on button , new sheet should create and name as page 2 at the same time A1 (of page2) cell value should display in menu page.

OR

create button in sheet 1 and name as menu , if i press on button , new sheet should create and name as page 1 and at the same time A1 (of page1) cell value should add A1 (menu page).
and so on,,,,,,,,
if i press 5 times on button 5 sheets should be created and what ever the values entered in cell A1 of each cell must be added in A1 of menu page

my theme is to create monthly expenditure and all ll be displayed in main menu page

thanking u sir

 

[Crystalyzer]

I'm not clear on what you actually wanted to be brought into the Menu sheet. I populated the inserted sheet names into column A.

Here is the code that you can assign to a button on the Menu sheet.

Sub AddNewPage()
    Dim n As Long
    Dim p As Range
    
    Application.ScreenUpdating = False
    
    Set p = Cells(Rows.Count, 1).End(xlUp)
    
    If InStr(1, p, " ") = 0 Then
        n = 1
    Else
        n = Mid(p, InStr(1, p, " ") + 1, Len(p)) + 1
    End If
    
    Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "Page " & n
    ThisWorkbook.Worksheets("Menu").Activate
    p.Offset(1, 0) = "Page " & n
    
    Application.ScreenUpdating = True
End Sub