Hello NG,
I have this macro I run on the first of the year and it works OK except for
the
Sheets(CurrentYear).Move After:=Sheets(WS_Count)
It doesn't seem to see or recognize this line, no errors or anything, just
skips over it.
Any suggestion on how I can get the new sheet to move to the last position?

Thanks
James

Dim CurrentYear As String
Dim LastYear As String
Dim WS_Count As Integer
CurrentYear = Right(Date, 4) 'get just the year from the current date


WS_Count = Worksheets.Count

Sheets.Add
Sheets("Sheet1").Name = CurrentYear
Sheets(CurrentYear).Select
Sheets(CurrentYear).Move After:=Sheets(WS_Count)
Sheets(CurrentYear).Select