Excel Macro run error

[semme001]

I have a macro that ran normally for about 6 cycles but apparently developed an error? It appears to stall on the second loop when it attempts to open the named workbook. Any suggestions would be most helpful!!
Here is the code I am working with.

Sub Update1()
'
' Macro4 Macro
'  
    Dim SaveString As String
    Dim sstr As String
    Dim pptr As String
    For X = 1 To 10
        pptr = ActiveSheet.Range("be2").Value
        Workbooks.Open Filename:="2006 02 " & pptr & " 0000 (Wide).dbf"
        Range("A2:ay1443").Select
        Selection.Copy
        Windows("Template1.xlsx").Activate
        Range("A3").Select
        ActiveSheet.Paste
        Columns("BB:BB").Select
        Application.CutCopyMode = False
        Selection.Copy
        Columns("D:D").Select
        ActiveSheet.Paste
        Range("BC2").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("BE3").Select
        Selection.Copy
        Range("BE2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        ActiveWorkbook.Save
        sstr = ActiveSheet.Range("A1").Value
        SaveString = sstr & ".xlsx"
        ActiveWorkbook.SaveAs Filename:=SaveString _
            , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.Close
        ActiveWorkbook.Close
        Workbooks.Open Filename:="Template1.xlsx"
    Next X
End Sub