Sorting Problem

H

Helmut

excel 2007

what's wrong with the following sort?

Sub Macro1()

Range("B3").Select
lastrow = Range("B" & Rows.Count).End(xlUp).Row
Set SortRange = Rows("3:" & lastrow)
SortRange.Sort , key1:=Range("C2"), _
order1:=xlAscending, _
key2:=Range("B2"), _
order2:=xlAscending, _
Header:=xlYes

End Sub

It stops at SortRange.Sort
 
R

ryguy7272

What about this:

FirstRow = 2
lastrow = Range("B" & Rows.Count).End(xlUp).Row
Set SortRange = Range("B" & FirstRow & ":C" & lastrow)
SortRange.Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("B1"),
Order2:=xlAscending, Header:=xlGuess

HTH,
Ryan---
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top