I am trying to run the following script:

Public Sub ContactCenterSummary()

Application.ScreenUpdating = False
monthlyupdatevariable = False

            DefineIterations

   Do While iterations > 0
            FindCurrentDay
                    iterations = iterations - 1
                    filetest = False
            CheckFiles
                    If filetest = True Then
                    Exit Sub
                    End If

            OpenAndCopyFiles


Workbooks("CC Summary Report").Worksheets("Summary").Range("e3") = lastupdated + 1

   Loop

            UpdatePivotTables
            ResizeColumns
            SaveCCSummary


Application.ScreenUpdating = True

End Sub

This script starts a chain of events...However when I execute the script I get Run-time error '9': Subscript out of range error. Any idea what I may need to fix this? TIA

Its hard to say but you've most likely got a typo in the line
Are the workbook and worksheet spelt absolutely correctly? Is the workbook in question open in the same instance of Excel?

It might help if you indicate which line the code debugs out on if this does not solve it.

Maccas

The entire program runs on all PCs but my own. If I go to a different desk, open the same file, I can run the program w/ no error. It fails at:

Do While iterations > 0
            FindCurrentDay
                    iterations = iterations - 1
                    filetest = False

using debug to see that. I thought it might be some option I may not have checked in a feature or something. Thanks for the input.