Thread: Macro not working in Office 2010

I have a macro that was written in Office 2003, since we upgraded to Office 2010 (I know, it's taken us a while...) the macro will run but not complete the print function which means that we have to manually filter the records to print. Can anyone tell me where the issue is?

thanks

Sub Manifest()

    On Error GoTo ERROR_PRINT_MANIFEST

    Dim selDate As Date

    selDate = InputBox("Enter date to print", "Manifest Print", Trim(Left(Now, 10)))

    Dim branchRange As String

    branchRange = Strings.Trim(InputBox("Enter range of branch list", "Manifest Print", Sheets("Data Entry").Cells(2, 9)))

    Dim firstCell As String
    Dim lastCell As String

    firstCell = Strings.Left(branchRange, Strings.InStr(1, branchRange, ":", vbTextCompare) - 1)
    lastCell = Strings.Right(branchRange, Strings.Len(branchRange) - Strings.InStr(1, branchRange, ":", vbTextCompare))

    Dim firstRow As Integer
    Dim lastRow As Integer

    firstRow = Range(firstCell).Row
    lastRow = Range(lastCell).Row

    Dim col As Integer

    col = Range(firstCell).Column

    Dim bottomRow As Integer

    Range("B2").Select
    If (IsEmpty(ActiveCell)) Then
        GoTo EXIT_PRINT_MANIFEST
    Else
        Range("B1").Select
        Selection.End(xlDown).Select
        bottomRow = ActiveCell.Row
    End If

    Range("A1:g65536").Select

    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal

    Dim lineNoRow As Integer
    Dim tempRow As Integer
    Dim prev1 As Date
    Dim prev2 As String
    Dim curr1 As Date
    Dim curr2 As String

    prev1 = Empty
    prev2 = Empty
    curr1 = Empty
    curr2 = Empty

    For lineNoRow = 2 To bottomRow
        curr1 = Cells(lineNoRow, 2)
        curr2 = Cells(lineNoRow, 3)

        If prev1 <> curr1 Then
            tempRow = 1
            Cells(lineNoRow, 1) = tempRow
            tempRow = tempRow + 1
        Else
            If prev2 <> curr2 Then
                tempRow = 1
                Cells(lineNoRow, 1) = tempRow
                tempRow = tempRow + 1
            Else
                Cells(lineNoRow, 1) = tempRow
                tempRow = tempRow + 1
            End If
        End If

        prev1 = curr1
        prev2 = curr2
    Next

    Range("A1:g65536").Select

    Selection.AutoFilter Field:=2, Criteria1:=selDate

    Dim currBranch As Integer

    For currBranch = firstRow To lastRow
        Selection.AutoFilter Field:=3, Criteria1:=Cells(currBranch, col)
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next

    Range("A1").Select
    Selection.AutoFilter

    MsgBox "Successful."

    GoTo EXIT_PRINT_MANIFEST

ERROR_PRINT_MANIFEST:

    MsgBox "Exiting..."

EXIT_PRINT_MANIFEST:

End Sub