How can I sort the names column in all sheets

[Googles]

Hey Mr EXCEL users,
I need some help about this please:

How can I sort the names column in each sheet.
For example: we have some names like this:

Sheet 1 (Main)

Name	Birthday	Class
Kofi	02.09.2011	B
Matt	18.10.2011	C
Kathrine	15.07.2011	C

<tbody>
</tbody>

Sheet 2, 3 and 4 (October), (November) and (December)

Name	Subject	Degree
Kofi	Physics	81%
Matt	Mathematics	79%
Kathrine	Physics	90%

<tbody>
</tbody>

Note: that we have more than x Sheets for Ex. 2 Sheets with other Information but with same Names, how can I
adding a new Name to the list in the (main sheet) we arranged the names sheet.
I want to arrange it in all Sheets without losing the data that is already stored.
Like this (1st only in the main sheet):


Sheet 1 (Main)

Name	Birthday	Class
John	02.09.2011	B
Kathrine	18.10.2011	C
Matt	15.07.2011	C
Sara	11.12.2011	B

<tbody>
</tbody>

and then automatically like this:

Sheet 2, 3 and 4 (October), (November) and (December)

Name	Subject	Degree
Kathrine	Physics	90%
Kofi	Physics	81%
Matt	Mathematics	79%
Sara	Physics	51%

<tbody>
</tbody>

I hope that you understand me and sorry about my bad English.

Thank you so much

 

[Legacy 143009]

How about to use =Sheet1!A2, =Sheet1!A3, =Sheet1!A4, etc.. in the first column of months sheets?

EDIT: But any filtering or alphabetical sorting in the main sheet may cause a disaster.

 

[Googles]

thank you Flashbond for the reply,
In VBA code, I want to sort in alphabetical. If it changes in the main sheet, it will be changed in the other sheets, with out losing the data.

 

[Googles]

LIKE This Please but for all sheets

Private Sub Worksheet_Change(ByVal Target As Range)    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim ws As Worksheet
   If Not Intersect(Target, Range("A:A")) Is Nothing Then
      For Each ws In Worksheets
         ws.Range("A1").Sort Key1:=ws.Range("A2"), _
            Order1:=xlDescending, header:=xlYes, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom
      Next ws
   End If
End Sub

 

[Googles]

Thank you Fluff for the replaying but working only for the 1st sheet
look here please

http://libya.mx/Students.xlsm

Thank you

 

[Fluff]

It's sorting all the sheets when I tried it.

 

[Googles]

Yes, but do not sorting the data in front of the names in the other sheets, just for the first sheet.

 

[Googles]

and if you have empty cell then is big problem to sorting

 

[Fluff]

I don't understand what you're saying.
But because col A in your month sheets use a formula looking at sheet Main. As soon as sheet Main is sorted, that will destroy the data on the other 3 sheets.