Moving Worksheet

[Papi]

I have a workbook with a macro that creates a weekly worksheet from a worksheet called "Blank" which is found in the same workbook and placed to the far right of the workbook. What I would like to do is when the macro runs is to have the blank worksheet to always remain about the fifth worksheet from the far right so it is always in sight and the copied worksheet to always land at the far right. The macro that creates the worksheet is;

Sub CopySheet()
Application.ScreenUpdating = False
Sheets("Blank").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Range("D1").Value = .Previous.Range("D1").Value + 7
.Name = Format(Range("D1").Value, "mmm d")
Application.Goto Reference:="R7C2"
Application.ScreenUpdating = True
End With
End Sub

 

[Steeviee]

Something like

a=sheets.count-3
Sheets("Blank").Move Before:=Sheets(a)

 

[Papi]

Hello Steeviee,

Perfect! Thanks for your help, it works great.