Moving / sorting sheets in VBA

  • Thread starter Thread starter Michael Beckinsale
  • Start date Start date
M

Michael Beckinsale

Hi All,

I have a series of identical sheets named LN1, LN2 etc up to LN20. They are
sandwiched between sheets "start" & "end" and each cell is summed using
=SUM(LN1:Ln2!A1) etc.

The user has been given the functionality to remove (say LN2, LN3, LN4) from
the protfolio by moving the sheets outside the "start" & "end" sandwich.

The problem l am having is writing some code to re-insert the sheets between
"start" & "end" and keep the numerical order intact.

Has anybody got any ideas?

All suggestions gratefully received

Regards


Michael beckinsale
 
This will do it for the references you gave.....

Sub SortSheets()
Dim xs As Integer
Application.ScreenUpdating = False
Sheets("LN1").Move After:=Sheets("start")
For xs = 1 To 19
Sheets("LN" & xs + 1).Move After:=Sheets("LN" & xs)
Next
Sheets("end").Move After:=Sheets("LN20")
Application.ScreenUpdating = True
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Moving rng of wrkshts to new workbook 6
How do l get the sheet name from the sheet code name? 6
Trying to delete sheet code with VBA 2
Selectively Moving Data to a Summary Sheet 9
Need macro to move cell contents from one sheet to another 1
Look for Sheet name, and then skip... 9
need code to copy/move data between sheets 3
Excel Columns moving up and down on their own in a worksheet. What Goes? 2

Back
Top