One way would be like this:-

Dim ws As Worksheet
lastsheetnum = 0
For Each ws In Worksheets
lastsheetnum = lastsheetnum + 1
Next ws
ActiveSheet.Copy after:=Worksheets(lastsheetnum)
NewSheet = InputBox("Give the sheet a name")
ActiveSheet.Name = NewSheet

"Josh" wrote in message
...
How can I copy/paste a worksheet into it's current workbook as the last
sheet
and rename it with a pop-up input box requesting the name of the new
worksheet.