Excel 97 2003 File Created In 2007 Does Not Work In 2003

[k0st4din]

Hi friends,
caught in a labyrinth from which I can not go. Attachment, which is the big macro problem:
On my PC excel file works flawlessly. How: pressing the macro searches for a match in column E42: Well according to demand and make a new sheet and the information it carries, but it is on my computer when I go to work does not work, but the file is actually the same. the other thing is that it starts from the branch down D42 cells than other countries and D are hidden.
Then look in column E42: E -> DB + number (BD 1000, BD 2000, BD ................... BD9000; ......... BD42000 ..........) then make a new worksheet name (BD1000 and so for all others) and transfer the entire column (columns) of D41:BB41 and down. As an introduction to the pictures you will see.

[k0st4din]

Hi friends,
I submitted a working macro that somewhere must be touched to my work. Nobody can respond and help me, it is very difficult to implement??

[k0st4din]

Hi friends,
Is it possible that no one can help me?
I very urgently, and no one responds, you can even write another code, I have no explanation for why so gets home office is 2007 in my work office 2003 but the macro works like office 2003. I checked and everything is included libraries, everything that does not jeopardize my job, but .......

[Excel Fox]

I checked the code (in 2007), and it doesn't seem to have any code that may not work in 2003. Anyway, I've made a minor modification in the code.

Option ExplicitOption Base 1
Sub ContractListt()


    Dim AllCells As Range
    Dim cell As Range, Rng As Range
    Dim NoDupes As New Collection
    Dim lrow As Long, Rlrow As Long
    Dim Myval As Integer
    Dim wks As Worksheet
    Dim Item As Variant
    Dim Hdrarray As Variant
    Dim cnt As Long
    Dim Ctempws As Worksheet
    
    Application.ScreenUpdating = False
    Set Ctempws = Sheets("Template")
    lrow = Sheets("BD").Range("E" & Rows.Count).End(xlUp).Row
    Set AllCells = Range("E42:E" & lrow)
    
    For Each cell In AllCells
        On Error Resume Next
        NoDupes.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    
    For Each Item In NoDupes
        Range("D41:BB41").Select
        Selection.AutoFilter
        With Selection
            .AutoFilter Field:=2, Criteria1:=Item
        End With
        Set Rng = ActiveSheet.AutoFilter.Range
        
        Myval = Range("D42:D" & lrow).SpecialCells(xlCellTypeVisible).Count
    
        On Error Resume Next
        Rlrow = Sheets(Item).Range("D" & Rows.Count).End(xlUp).Row + 1
        If Err = 9 Then
            Ctempws.Copy after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Item
            With Sheets(Item)
                Rlrow = .Range("D" & Rows.Count).End(xlUp).Row + 1
                Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1).Copy
                .Cells(Rlrow, 4).PasteSpecial xlValue
                Application.CutCopyMode = xlCopy
                Sheets(Item).Cells.EntireColumn.AutoFit
                Sheets(Item).Range("D41").Select
                Sheets("BD").Activate
            End With
        Else
            Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1).Copy
            Sheets(Item).Cells(Rlrow, 4).PasteSpecial xlValue
            Sheets(Item).Cells.EntireColumn.AutoFit
            Sheets(Item).Range("D42").Select
            Application.CutCopyMode = xlCopy
        End If
    Next Item
    Selection.AutoFilter
End Sub

Can you check if you've enabled macro (ie, the macro security should not be high)