Thread: Sort selected rows
View Single Post
 
Old 05-26-2023, 08:57 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
  
Join Date: Apr 2014
Posts: 871
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default
try:
Code:
Sub Sort2()
Set SortRng = Intersect(Selection.EntireRow, Columns("A:AK"))
If Not SortRng Is Nothing Then SortRng.Sort Columns("F"), xlAscending, Header:=xlNo
End Sub
Reply With Quote