Sort Dynamic Area - quick question

[jillian728]

I know something is wrong but I'm not exactly sure what... Appreciate any help!

CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

 

[Todd Bardoni]

What's the problem?

 

[parry]

How about

ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

 

[Yogi Anand]

Hi Jillian:

Try ...

Sub ytest()
    Range("a1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Does this work for you?

 

[jillian728]

I tried the first one from Parry and it worked great.

The problem I was having initially is that I kept geeting that error where it asks if you want to debug and then it highlights the problem section in yellow.

Thanks everybody!