I have some Visual basic code that is sorting but not what I am wanting ![Frown :( :(](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
I am not strong in this area so am asking for some Help - Thanks
Here is my code: I will also upload a pic of the data thanks so much for any & all help
I am not strong in this area so am asking for some Help - Thanks
Here is my code: I will also upload a pic of the data thanks so much for any & all help
VBA Code:
Sub Worksheet_Activate()
'
' RnkSrt Macro
' Macro add on 06/25/2024 by Rude Boy Chris
'
rowcount = ActiveSheet.UsedRange.Rows.Count
Range(Cells(9, 1), Cells(rowcount, 16)).Select
Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Activate
End Sub
Attachments
Last edited by a moderator: