James,

I would do it in the Add method like so....

Sub AddYearSheetToEnd()
Dim ws As Worksheet
Dim CurrentYear As String

CurrentYear = Right(Date, 4)

Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
ws.Name = CurrentYear

End Sub



--
Charles
www.officezealot.com


"James Agostinho" wrote in message
k.net...
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