sorteren in een macro

[Etienne1978]

Hallo,

Ik heb een vraag mbt sorteren in een macro.
Als ik een macro opneem krijg k bij het sorteren de volgende code:

Range("A1").Select
    Selection.CurrentRegion.Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A1:A1828") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:F1828")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

In feite niks mis mee. Alleen wil het probleem dat als ik deze macro voor een volgend bestand ga gebruiken wat groter is hij de range aanhoud
wat in de macro staat (A1:F1828) terwijl het bijv. (A1:F4000) moet zijn. Ik dacht dat indien ik bij een macro shift+ctrl+* ingedrukt zou houden hij ongeacht de grote van de range hij alles zou selecteren maar blijkbaar doet hij dat bij mij toch niet.

Kan iemand mij vertellen hoe ik dit probleem moet oplossen?

 

[pasan]

.SetRange Range("A:F")