Hi,
(make a copy before you run the below vba code)
i assume that in row 3 are headings
Sub Sort_data_12_shts()
'## 05-03-2023 ##
Const strArea As String = "Q3:Y33" '<< data range
Dim rng As Range
Dim nCol As Long, x As Long
nCol = Range(strArea).Columns.Count
Dim v As Variant, vv As Variant
v = Array**("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")** '<< sht names
For Each vv In v
For x = 1 To nCol
Set rng = Sheets(vv).Range(strArea).Columns(x)
rng.Sort Key1:=rng.Item(1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next x
Next vv
End Sub
===================================
step1
Save your Workbook with extension .xlsm (macros enabled workbook)
Step2
2a) press ALT+F11 to open Visual Basic
2b) from the ribbon, select: Insert > Module and paste the code above on the right
pic

2c) Press ALT+Q to Close Visual Basic
Step3
To run the macro, press ALT+F8,
select '**Sort_data_12_shts'**from the list and click the run button.
or
add a button and assign the vba macro