You need to change
h = UsedRange.Rows.Count
to
h = ActiveSheet.UsedRange.Rows.Count



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"alexwren"
wrote in
message
...

Anybody know why this is a problem?


Code:
--------------------
Sheets("data").Select
h = UsedRange.Rows.Count
Rows("2:" & h).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("H2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
--------------------


Alex


--
alexwren
------------------------------------------------------------------------
alexwren's Profile:
http://www.excelforum.com/member.php...o&userid=36767
View this thread:
http://www.excelforum.com/showthread...hreadid=564910