Sorting certain ranges in a worksheet

Hi all,

I use the following code for sorting named ranges by hour. But it sorts all the ranges in the worksheet and I only want the ranges that start with 'mission'.

Can the

For Each NamedRng In ActiveWorkbook.Names

be changed so that it only sorts the ranges in the workbook that start with mission?

'Startrij voor de lijst instellen = Rij 1 fungeert als "hoofding"
R = 2
'Ranges naar lijst kopiëren - Opdracht en uur
For Each NamedRng In ActiveWorkbook.Names
    LijstWks.Cells(R, 1) = NamedRng.Name
    LijstWks.Cells(R, 2) = NamedRng.RefersToRange.Cells(1, 2)
    R = R + 1
Next NamedRng
    
'Ranges sorteren in de lijst
R = R - 1
Set ListRng = LijstWks.Range("A2").Resize(R - 1, 2)
ListRng.Sort Key1:=ListRng.Cells(1, 2), Order1:=xlAscending
       
'Ranges kopiëren naar SortWks
R = 1
For I = 1 To ListRng.Rows.Count
    Set Rng = ActiveWorkbook.Names(ListRng.Cells(I, 1).Text).RefersToRange
    Rng.Cut Destination:=SortWks.Cells(R, 1)
    R = R + Rng.Rows.Count
    
Next I


'Opdrachten naar detail kopiëren
R = 1
Worksheets("SortWks").Range("A1:U493").Cut Destination:=Worksheets("detail").Range("A5:U497")

That seems to do the job but gives an error on the following line below.


Set ListRng = LijstWks.Range("A2").Resize(R - 1, 2)

Any idea why?

No, it's still there...

I had to translate it but this should be the error message:

Error 1004 "Application-defined or Object-defined error"

Tried it again a couple of times and eventually it worked. I left the 'LCase' out. I probably made a mistake somewhere, but it's perfect now!

Thanks!