Hvorfor koden virker ikke?

Prøv med denne :

Private Sub CommandButton1_Click()
Worksheets("Ark1").Range("A15:M58").Sort Key1:=Worksheets("Ark1").Range("M15"), Order1:=xlAscending, Header=:xlGuess
End Sub

Det virker ikke

Hvadf er det, derikke virker? Kører koden ikke, elelr bliver der ikke sorteret?

Når jeg kører makroen får jeg denne meddelse "compile error Syntax error"

Jeg kan ikke helt forstå hvorfor det ikke virker, men prøv eventuelt nedenstående:

Private Sub CommandButton1_Click()
Dim Placering As Range

Set Placering = Application.ActiveCell
Application.ScreenUpdating = False
Worksheets("Ark1").Range("A15:M58").Select
Selection.Sort Key1:=Worksheets("Ark1").Range("M15"), Order1:=xlAscending
Placering.Select
Application.ScreenUpdating = True
End Sub

Jeg kunne faktisk godt få koden til at køre, men det gik galt så snart den blev sat ind i Commandbutton-koden. Hvorfor ved jeg ikke. Måske er der nogen af de kloge hoveder, der ved det - eller er stødt på det før.

Hos mig virker det upåklageligt. Men husk at sætte egenskaben TakeFocusOnClick på knappen til False.

Derimod virker xelors kode ikke, når den står i en knap. Det skyldes Header=xlguess. Fjernes det, kører også den fint.

Så kan jeg jeg også få det til at fungere. Koden er ok, men som jkrons skriver, skal TakeFocusOnClick på knappen være False. Hvem kunne dog have gættet det?
Godt gået jkrons! ;0)

*;-)

Damn...det havde jeg ikke lige lagt mærke til..:-(
Fint nok...

Tak sjap din kode virker
og tak jkrons
send et svar

:-)