Compile Error: Expected Function or Variable

[jwb1012]

Hello, I am getting an error that I don't quite understand. Any thoughts on why I am getting this error?

Compile Error: Expected Function or Variable....

Sub Copy_BOE_Template()
        Dim sh As Worksheet
        Dim i As Integer
        Dim i2 As Integer
        'STEP 5: Set sheet to copy
        Set sh = Worksheets("Template - BOEs")
        
            'STEP 6: Determine number of copies to make
            i = Worksheets("Staffing Plan").Range("D5")
        
                'STEP 7: Name the first sheet
                sh.Name = "Template - BOEs"
        
                    i2 = ActiveWorkbook.Worksheets.Count
                    For X = 1 To i
                        sh.Copy After:=Sheets(i2 + X - 1)
            
                        'STEP 8: Name of subsequent sheets
                        Sheets(X + i2).Name = "Labor BOE " & X & " of " & i
                    Next X
End Sub

 

[Trebor76]

Hi jwb1012,

At a guess I'd say it's line erring out (may not be but you haven't given any info)...

For X = 1 To I

...which I'd say is because you have Option Explicit at the top of the module and you haven't declared X as a variable.

Try this along with your other variables and see how it goes:

Dim X As Integer

Regards,

Robert

 

[jwb1012]

Thank you! This did the trick....

 

[Trebor76]

Glad to hear it