BA sort - How to fix this problem?

[Lasalle1370]

There are 2 worksheets in the workbook: sheet1 & sheet2. I have code in sheet2 that will sort sheet1. I want to sort the entire worksheet Sheet1 based on column "A". See the attached image for what Sheet1 looks like.

The code in sheet2 is:

Sub sortWorksheet()
Dim sortrange As Range

Worksheets("Sheet1").Activate
Set sortrange = Range("A:I")
sortrange.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub

Nothing happens when I run this code.
What am I missing?

 

[Fluff]

Hi & welcome to MrExcel.
Is the code in the sheet2 code module, or in a normal module?

 

[Lasalle1370]

I am not exzactly sure of the meaning of your question.
Does the attached image answer your question?

 

[Phuoc]

Try:

Sub sortWorksheet()
Dim sortrange As Range

With Worksheets("Sheet1")
    Set sortrange = .Range("A:I")
    sortrange.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
End With
End Sub

 

[MARK858]

@Lasalle1370 you will get that issue with your code in post number one if your code was in the place you have marked as "Code can be either here".

The code that @Phuoc has posted will work in either place but should still be in the place that you have marked as "Or here - either place"

 

[Lasalle1370]

Thank you both so much - the code works!!!

Thanks again.