Arbeitsblätter sortieren lassen

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets(3).Cells(1, 1).Value = 0 Then Sheets(3).Visible = False Else Sheets(3).Visible = True

usw. bis Blatt 24

If Sheets(27).Cells(1, 1).Value = 0 Then Sheets(27).Visible = False Else Sheets(27).Visible = True
End Sub

Die Arbeitblätter geraten immer durcheinander, je nachdem welche Bedingung für das Einblenden eines Blatte zuerst erfüllt wird. Ich möchte die eingeblendeten Blätter nach einer Zahl in der Spalte (A2)sortieren lassen Blatt 1;2;4;7;9;10 usw.Kann mir jemand mit einem Makro helfen und wenn ja wie binde ich es ein. Bin leider kein Makrospezialist.
Danke André