How to use VB script for sorting columns

[djanu]

Hi,

Is there a way to use VB script to sort data ascending in A column?

-A--------B
tom------2
john-----1
mike-----3

It should be:

-A--------B
john-----1
mike-----3
tom------2


Thanks,
djanu

 

[Boller]

It can be obtained from the macro recorder.

 

[djanu]

I am trying to use this script:

With Sheets(2).Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With

I get this error:

Run-time error '1004': Unable to get the Select property of the Range class

If I click debug it points to:

With Sheets(2).Columns("A:B").Select


Any ideas?

Thanks,
djanu

 

[Boller]

With Sheets(2)
    .Columns("A:B").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End With

Are you sure you want to use Sheets(2) rather than the sheet name?

 

[djanu]

Thank Boller. It works great. Yes, I'm using names for the sheets. This was just an example.