Sorting a column

[Michael007]

I have two columns, and I want to sort Column B in ascending order with vba code, but when column B is sorted, the corresponding cells in Column A should also be sorted together.

So for eg.
ColumnA | ColumnB
Apple | 5
Pear | 2
Banana | 3

After sorting it should display
ColumnA | ColumnB
Pear | 2
Banana | 3
Apple | 5

What I have is:

Please Login or Register  to view this content.

and it isn't working, its not even sorting column B.

[DBY]

Hi
Try the following code:

Please Login or Register  to view this content.

Hope this helps

[Michael007]

Hi thanks for reply. I've tried it but it gives an error saying Application-defined or object-defined error

[DBY]

Hi
The code I posted is based upon sorting the sample data you quoted, with Column headers in A1 and B1. So it should sort the range A1 to B4 by the values in column B. What is the range of data you are trying the code on? If it's different to the above then you'll have to amend the sort range in the code. Perhaps you could post a sample file of what you are having trouble with.