Try this,
Create a Command Button and name it NewSheet1 and enter this into your code.
It will copy all the data over and name the sheet with (1) after it. I dont
know how to sort the data, but that is how you copy your worksheets. If you
have it on every worksheet it will copy that one and paste it over

Private Sub NewSheet1_Click()
Dim intAnswer As Integer
intAnswer = MsgBox("Are you Sure you wish to Create a New Sheet", vbYesNo,
"New Sheet")
If intAnswer = vbNo Then
Exit Sub
End If

Sheets(1).Copy after:=Sheets(1)


MsgBox "A New Sheet has been Created"


End Sub


"payments" wrote:

HI,
I have Worksheet 1 with first names, last names, date of birth, sorted by
first name

I want Worksheet 2, to have the same info, first names, last names , date of
birth but sorted by month, then date,

I want to be able to do this without having to update Worksheet 2 at all, to
have this as a protected sheet