Here is a macro that will sort the worksheets on opening.
Its focus is to move a particular sheet to the left most position.
The balance of the worksheests names are either numbered or numbers prefixed with the "NEW" designation.
I would like to ad code to this that would:
1] make sure the "NEW" sheet is leftmost on openeing.
2] then all sheests that read "NEW (x)" *x being numbers
3] then all numbered sheets
It is also important that I can sort the sheet (High to low) within the sun catagories.
i.E....
NEW. New 1, new 2, new 3, new 4, 12333,12334, 12335, 12336
Can anyone help?
Application.ScreenUpdating = False
'Align sheets
For Each Sheet In Application.Worksheets
Range("e1").Select
Sheet.Activate
Next
ActiveWorkbook.Sheets(1).Activate
' Move NewSheet
On Error Resume Next
ActiveWorkbook.Sheets("NEW").Move Before:=ActiveWorkbook.Sheets(1)
Err.Clear
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
End Sub
Its focus is to move a particular sheet to the left most position.
The balance of the worksheests names are either numbered or numbers prefixed with the "NEW" designation.
I would like to ad code to this that would:
1] make sure the "NEW" sheet is leftmost on openeing.
2] then all sheests that read "NEW (x)" *x being numbers
3] then all numbered sheets
It is also important that I can sort the sheet (High to low) within the sun catagories.
i.E....
NEW. New 1, new 2, new 3, new 4, 12333,12334, 12335, 12336
Can anyone help?
Application.ScreenUpdating = False
'Align sheets
For Each Sheet In Application.Worksheets
Range("e1").Select
Sheet.Activate
Next
ActiveWorkbook.Sheets(1).Activate
' Move NewSheet
On Error Resume Next
ActiveWorkbook.Sheets("NEW").Move Before:=ActiveWorkbook.Sheets(1)
Err.Clear
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
End Sub