Run sort macro on active worksheet
How can I make the code below work on any worksheet?
Sub SortByDate() ActiveWorkbook.Worksheets("DateCheck").Sort.SortFi elds.Clear ActiveWorkbook.Worksheets("DateCheck").Sort.SortFi elds..Add Key:=Range( _ "C4:C24"), SortOn"=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("DateCheck").Sort .SetRange Range( "B3:K24" ) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub |
Run sort macro on active worksheet
Use ActiveSheet rather than, ActiveWorkbook.Worksheets("DateCheck").
|
All times are GMT +1. The time now is 02:58 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com