Dynamic Sort Macro

Hello.

I want to create a sort macro that is dynamic. Today the macro looks like this:

Sub Sort()
Application.ScreenUpdating = False
    Range("A6:AL100").Select
       Selection.Sort Key1:=Range("B7"), Order1:=xlDescending, Key2:=Range("A7") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    Range("A6").Select
    Application.ScreenUpdating = True
End Sub

I want to have the range dynamic so that I can use the same code for several sort criterias?
Like this:

Sub Sort(Column)
Application.ScreenUpdating = False
    Range("A6:AL100").Select
       Selection.Sort Key1:=Range( Column&"7"), Order1:=xlDescending, Key2:=Range("A7") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    Range("A6").Select
    Application.ScreenUpdating = True
End Sub

I guess it is quite easy to create this but I need help from someone more experienced.

/Anders

thanks Carim.

Is there a way for me to send the actual Column when I click on the button that triggers tha macro to start?
I don't want the column to be "hardcoded"
/Anders

Hi,

It can be anything you need, retrieved from any cell of your worksheet ...
Range("A1").Value

HTH
Carim

Hello.

I guess I need to explain how I really will use this macro.

I have several buttons on a sheet that starts different sortmacros. All are the same it is just the sorting cell that is different.

Instead of using 15 macros I want to only use one and determain which cell to use when I start the macro by clickin on one of the buttons.
When I try to write Sort(S7) excel tells me that it is too complex and it doesn't work. Can I maybe use a cell and use a "onclick" to send the reference I want to use in the macro?

Any ideas?

/Anders

How do you want to determine your sort cell in your 15 different cases ...?

Carim

I want to pass the cell reference to the subroutine if possible.

When I click the button/text/cell or whatever I want the macro to start.
In A4 I have a text that says "SORT". When I click on "SORT" I want the click to start the macro and send the cell reference A4 to the function.

I don't know how.

/Anders