VBA-Replace Page with a Page in same Workbook

[bamaisgreat]

Thanks for looking at my post.
I would like to have some code so I can do the following. I would like to have a box pop up with the option to replace a random page in my work book by entering the page number in dialog box. I want the page that will be replacing the old one to be renamed to old page name.

 

[My Aswer Is This]

When you say "Page" I assume you mean "Sheet"

So you want to enter a Sheet number.
And that sheet will be deleted and the a new sheet will be created given the same sheet name as the one we deleted.

Now I hope you know sheet number means:

As you look at the Tab bar. Sheet(1) is the far sheet to the left. and sheet (2) is the next sheet to the right

So if you enter "10" into a InputBox sheet(10) will be deleted not necessarily a sheet name "Sheet10"

Try This:

Sub Delete_Sheet()
On Error GoTo M
Dim ans As Long
ans = InputBox("Enter sheet nunber you want deleted")
anss = Sheets(ans).Name
Sheets(ans).Delete
Sheets.Add(After:=Sheets(Sheets.Count)).Name = anss
Exit Sub
M:
MsgBox "No sheet numbered " & ans & "  exist" & vbNewLine & " Or this sheet name may already exist"
End Sub