Make the current worksheet the active sheet.

[JohnZ1156]

I have a macro that I would like to be able to run on different worksheets. I placed a "button" on Sheet1 and assigned this macro:
Problem is, I'd like to place the same button on Sheet2, Sheet3, etc. and run the same macro, except on the current sheet, not always on Sheet1.
I know the "fix" is somewhere in the line Set ws = Worksheets("Sheet1") but I don't know how to "fix" it.

Option Explicit
Sub L_to_R()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, c As Range
    Set ws = Worksheets("Sheet1")
    For Each c In ws.Range("A2", Cells(Rows.Count, "A").End(xlUp))
        If IsDate(c) Then c.Offset(, 1).Resize(, 5).Sort _
        Key1:=c, Order1:=xlAscending, Orientation:=xlLeftToRight
        ws.Sort.SortFields.Clear
    Next c
    Application.ScreenUpdating = True
End Sub

 

[MARK858]

If someone can explain to me why this macro would not work on data formatted as an Excel Table, but did work when the same data was not formatted as an Excel Table, I'd love to understand.

I haven't tested it but probably your range is including cells outside of the range of the Table, a Table is an object not a format and so it breaks when you have cells that are both outside and within the Table.

Rory's post about sorting a range by a cell that is not part of the range still stands for post 3

 

[RoryA]

If someone can explain to me why this macro would not work on data formatted as an Excel Table

You can't sort left to right in a table, and you can't sort only part of a table.