Macro niet uitvoeren in eerste tabblad, rest wel.

[Partis]

Beste,

Ik heb een macro die van alle tabbladen een bepaalde range van rijen automatisch op datum sorteert. Nu wil ik dat de eerste tabblad niet wordt gesorteerd. Wie kan mij helpen.

Dit is mijn script:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In ThisWorkbook.Sheets
Sh.Range("A27:c100").Sort Key1:=Sh.Range("a27"), Order1:=xlDescending
Next
End Sub

Groeten, Vincent

 

[edmoor]

Zoiets:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    For Each Sh In ThisWorkbook.Sheets
        Select Case Sh.Name
            Case "Naam Eerste Blad"
            Case Else
                Sh.Range("A27:c100").Sort Key1:=Sh.Range("a27"), Order1:=xlDescending
        End Select
    Next
End Sub

 

[Partis]

Dag EdMoor,

Ja, perfect! Hij werkt!
Dank je!

Hartelijke groeten, Vincent