tja, Dracula, dat was toch lang voor de 1e computer.
Wat hier gebeurt, daar komt mijn haar van recht !
't Is toch niet toevallig een Mac waarop je bezig bent, welke versie van excel draai je ?
Er is nu een extra regel in met gewoon sorteren op het huidige blad en je zou dan een msgbox "gelukt" moeten krijgen en dan pas in de fout gaan.
Zeg nu aub niet dat je niet aan die msgbox geraakt ...
Private Sub CommandButton1_Click()
With Worksheets("10 euro") 'op dit werkblad
.Unprotect 'beveiliging er af
regel = Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row) 'nummer laatst gebruikte in kolom C, met 2 als ondergrens
MsgBox "eventjes het rijnummer vermelden : " & regel & vbLf & "sorteerbereik = " & .Range("A2:P" & regel).Address & vbLf & "sleutel = " & .Range("P2").Address
Application.EnableEvents = False 'onnodig wegspringen naar calculate vermijden
Range("A2:P24").Sort Range("P2"), xlDescending, Header:=xlNo '---> sorteren rechtstreeks ???
MsgBox "gelukt ???"
.Range("A2:P" & regel).Sort .Range("P2"), xlDescending, Header:=xlNo 'sorteren op de P-kolom, zonder header
Application.EnableEvents = True
.Protect 'blad weer beveiligen
End With
End Sub