code to run macro on selected sheet

[FMW]

Hello,
Everyday I received daily sales with a an excel sheet of anywhere from 10 to >100 job numbers. 1x per week I enter the necessary informtion into our invoicing program.
One of the steps I have to do first is sort each sheet by job number, customer, material. Then I also group customers (subtotal function).

I have macro for sorting and subtotal function. However, I cannot figure out code to run the macro on selected sheet. Currently, for example, my macro is:

 

[mse330]

How about this ? Or you can adjust accordingly

Sub SortSalesDetail()

' SortSalesDetail Macro
' Sort Sales Detail
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "####-##-##_Tickets" Then
        ws.[A1].CurrentRegion.Sort key1:=ws.[E1], Header:=xlYes, Key2:=ws.[H1], Header:=xlYes
    End If
Next

End Sub

 

[mse330]

perhaps change the sheet name, add an "S" to the name?

If this option works for you, you can add the below line before the End If line in the code in post # 11 & the macro will change the name once the sorting is completed so it doesn't get altered again by the macro

ws.Name = ws.Name & "_s"

 

[FMW]

I like that. I'll mark an identififer as "entered", which also alerts me to the fact that I've invoiced.

 

[FMW]

I'm going with your adding the VBA code....."_s"

 

[mse330]

Glad it’s working out for you & happy to help

 

[FMW]

THANK YOU! It's working great. Appreciate you taking time on Sunday night to answer. My next attempt: macro to perform subtotal!
Wish me luck.
Good night and stay safe always.