Moving A Worksheet To The End of all Existing Worksheets

[Ark68]

I am not having any luck with moving a worksheet to after the last worksheet in the workbook.

              With ws_src
                    ag = 365
                    .Unprotect
                    dt_row = Application.WorksheetFunction.Match(CLng(Date), .Columns(2), 0)
                    .Range("C" & dt_row & ":G" & ag).ClearContents
                    .Protect
                    .Name = "(former " & tab_scr & ")"
                    .Tab.Color = RGB(33, 54, 51)
                    .Move after:=Worksheets(Worksheets.Count)
                    .Visible = False
                End With

I am trying to move worksheet ws_src to the last worksheet of the workbook. It's not working.

 

[Michael M]

Change the first line to

With Sheets("ws_src")

 

[DanteAmor]

The code works for me.
It sends you an error, what does the error say, on which line does it stop?

 

[Ark68]

No errors, it just doesn't send the sheet to the end.
Michael, ws_src is an alias ...

dim ws_src as worksheets
set ws_src = worksheets("source")

 

[DanteAmor]

You have hidden sheets, protected sheets, how many sheets do you have when you try the process?

 

[Michael M]

The original code worked for me as well, but you didn't advise that you had set the sheet variable.
Have you tried it without the protection ?
Is the workbook protected in the code as well ??

 

[Fazza]

if the code is in a different file from the workbook with the worksheets, add a workbook reference?

something like
.Move after:=workbookreference.Worksheets(workbookreference.Worksheets.Count)

 

[DanteAmor]

There are so many questions because we can not see how you have your book, if you provide us with more information about the environment of your book, we can look for a solution.


Try moving a sheet, in a new book, to rule out vba or version problems.

eg.

Sub tomove()
    Sheets("Sheet1").move after:=Worksheets(Worksheets.Count)
End Sub