Sorting Columns

[CobraLAD]

Active sheet is Sheet1

Using the following to sort on sheet7

    Sheet7.Select
    Columns("A:J").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

is there a way to sort on sheet7 without selecting it, I have tried to use

    sheet7.Columns("A:J").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

but the code does not work in that way

[VBA Noob]

Please remember to follow the forum rules below. (check out rule 5)

See if this helps

With Sheets("Sheet7")
  .Range("A2").CurrentRegion.Sort Key1:=.Range("A2"), _
            Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom
End With

VBA Noob