question about sorting

Logit · #2 01-18-2024, 01:28 AM

Code:

Option Explicit

Sub SortAlphabeticalA()
    Range("A3:A1000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo
End Sub

Sub SortAlphabeticalB()
    Range("B3:B1000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo
End Sub

Sub SortAlphabeticalADwn()
    Range("A3:A1000").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlNo
End Sub

Sub SortAlphabeticalBDwn()
    Range("B3:B1000").Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlNo
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Data Sorting Question	AQWst	Excel	4	02-02-2015 11:37 AM
Macro Needed to Insert Asnwer to A Question in Multiple Choice Format Question	rsrasc	Word VBA	7	03-28-2014 12:28 PM
Question about sorting paragraphs in Word 2007	WaltR	Word	5	02-21-2014 09:16 PM
Sorting question	markg2	Excel	4	01-25-2010 03:13 PM
Categories question & replying with attachment question	glitzymama	Outlook	0	03-15-2006 09:32 AM