Excel 2003 vs. 2007 VBA Issue

I have written the following code to take lines of data off a "Master" tab and create separate "forms" that are prepopulated from the original data. It should only create/pre-fill as many forms as there are lines of data in the Master tab. This code works beautifully on my Excel 2007 at home, but I need it to work on Excel 2003 at the office. No luck.

Please correct the code so that it'll work on both!

Thanks so much!!

Sub Copier2()
    Dim x As Range
    Dim y As Integer
    Dim z As Integer
    Dim SheetName As String
        
    Dim Title As String
    Dim Observation As String
    Dim Risk As String
    Dim Department As String
    Dim Description As String
    Dim CorrectiveAction As String
       
    Set x = Workbooks.Item(1).Worksheets.Item("Master").Range("F2")
    y = 3
    z = 2

    For numtimes = 1 To x
        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet4" with the name of the sheet to be copied.
            
        ActiveWorkbook.Sheets("Report").Copy _
        After:=ActiveWorkbook.Sheets("Report")
        
        Title = "A" & y
        Range("Title").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(Title)
        
        Observation = "F" & y
        Range("Observation").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(Observation)
        
        Risk = "K" & y
        Range("Risk").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(Risk)
        
        Department = "D" & y
        Range("Department").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(Department)
        
        Description = "H" & y
        Range("FindingDescription").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(Description)
        
        CorrectiveAction = "M" & y
        Range("CorrectiveAction").Select
        ActiveCell.FormulaR1C1 = Workbooks.Item(1).Worksheets.Item("Master").Range(CorrectiveAction)
        
        y = y + 1
        z = z + 1
                
    Next
    End Sub

Sorry forgot to post the error...Runtime Error 9: Subscript out of Range at the following point:

Set x = Workbooks.Item(1).Worksheets.Item("Master").Range("F2")

...and, again, works fine on Excel 2007. No errors!

I don't have 2003 any longer to test, but try changing:

Set x = Workbooks.Item(1).Worksheets.Item("Master").Range("F2")

to

Set x = Workbooks(1).Worksheets("Master").Range("F2")

Be sure to change the rest of the rows that use that format. Not sure why you would need the "Item" section in either version.

You DIM'd variable x as Range, but you're trying to use it in a loop. I'm guessing you're trying to set the upper limit of the loop to the value in cell F2? If so, just DIM variable x as Long. (y and z, too. Long is usually safer than Integer, since it has a much greater range.)