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"
<alexwren.2birut_1153861808.4225@excelforum-nospam.com> wrote in
message
news:alexwren.2birut_1153861808.4225@excelforum-nospam.com...
>
> 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
>