Worksheet Copy And Rename Not Working As Intended

I've got a Workbook that contains the following worksheets:

1. conversion(2) - Hidden
2. Old Data - Hidden
3. Blank Form

I want to copy "Blank Form" once for each day of the month.
I'd like to rename each copied worksheet with the Date (i.e. Oct 01 2009)

Here's what I'm working with:

Sub Copysheets ()

Worksheets("Blank Form").select

Dim x As Integer

For x = 1 to 30

Worksheets(1).Copy after: =Worksheets(x)
Worksheets(x+1).Name=Format(DateSerial(2009, 20, x), "MMM-DD-YYYY")

Next x

End Sub

The problem I'm having is that the first sheet to be copied is the "Old Data" worksheet and the copy is renamed Oct-01-2009. After that the correct Worksheet is copied and renamed Oct-02-2009 and so on.

I can't figure out why it's copying the "Old Data" worksheet first.