Issues with VB FreezePanes

jmthompson · Jul 21, 2011

I have an involved series of macros, which are working well, except for the freezepanes command. It's not freezing the panes where I want:

Rich (BB code):

Sheets("MCC_Breakout").Range("C4").Activate (I've tried Select too)
ActiveWindow.FreezePanes = True

Found multiple times in this macro

Rich (BB code):

Sub breakout2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Sh As Worksheet
Dim lastRow As Long
Dim c As Range
Dim wbMain As Workbook
Dim wbNew As Workbook
Dim myYear As String
Dim myPath As String
Dim myAddr As String
Dim i As Long
myYear = Format(Now(), "yyyy")
myPath = "G:\PCard Directory\Quarterly Reviews\" & myYear & "\Q2\"

Set wbMain = ThisWorkbook

Sheets(Array("10100 Summary", "10100 Lrg Ticket", "10100 Cardholders with MCC", "10100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Star-Ledger Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "987" And (Cells(2, i).Value) <> "988" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Star-Ledger%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Star-Ledger Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10100 Summary", "10100 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10100 Lrg Ticket").Delete
Sheets("10100 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("10200 Summary", "10200 Lrg Ticket", "10200 Cardholders with MCC", "10200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Plain_Dealer Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "972" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Plain_Dealer%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Plain Dealer Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10200 Summary", "10200 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10200 Lrg Ticket").Delete
Sheets("10200 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("10300 Summary", "10300 Lrg Ticket", "10300 Cardholders with MCC", "10300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Oregonian Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "974" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Oregonian%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Oregonian Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10300 Summary", "10300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("10300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10300 Lrg Ticket").Delete
Sheets("10300 Summary").Select

wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("10400 Summary", "10400 Lrg Ticket", "10400 Cardholders with MCC", "10400 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Times_Picayune Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10400 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10400 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Times_Picayune%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Times-Picayune Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10400 Summary", "10400 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10400 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10400 Lrg Ticket").Delete
Sheets("10400 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("12000 Summary", "12000 Lrg Ticket", "12000 Cardholders with MCC", "12000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Birmingham Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "969" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Birmingham%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Birmingham News Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12000 Summary", "12000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12000 Lrg Ticket").Delete
Sheets("12000 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("12100 Summary", "12100 Lrg Ticket", "12100 Cardholders with MCC", "12100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "GRP Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "971" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "GRP%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Grand Rapids Press Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12100 Summary", "12100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12100 Lrg Ticket").Delete
Sheets("12100 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("12200 Summary", "12200 Lrg Ticket", "12200 Cardholders with MCC", "12200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Post_Standard Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "982" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Post_Standard%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Post-Standard Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12200 Summary", "12200 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12200 Lrg Ticket").Delete
Sheets("12200 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("12300 Summary", "12300 Lrg Ticket", "12300 Cardholders with MCC", "12300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "PatNews Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "968" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "PatNews%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Patriot-News Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh
Sheets("12300 Livelink_PaymentNet").Name = "Approvers_Finance"

Sheets(Array("12300 Summary", "12300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12300 Lrg Ticket").Delete
Sheets("12300 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13000 Summary", "13000 Lrg Ticket", "13000 Cardholders with MCC", "13000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "MPR Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "978" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "MPR%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Press-Register Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13000 Summary", "13000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13000 Lrg Ticket").Delete
Sheets("13000 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13100 Summary", "13100 Lrg Ticket", "13100 Cardholders with MCC", "13100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Republican Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "979" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Republican%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Republican Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13100 Summary", "13100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13100 Lrg Ticket").Delete
Sheets("13100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13300 Summary", "13300 Lrg Ticket", "13300 Cardholders with MCC", "13300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Times Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "987" And (Cells(2, i).Value) <> "988" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Times%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13300 Summary", "13300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13300 Lrg Ticket").Delete
Sheets("13300 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("13400 Summary", "13400 Lrg Ticket", "13400 Cardholders with MCC", "13400 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "SIA Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13400 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "986" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13400 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "SIA%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Staten Island Advance Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13400 Summary", "13400 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13400 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13400 Lrg Ticket").Delete
Sheets("13400 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13500 Summary", "13500 Lrg Ticket", "13500 Cardholders with MCC", "13500 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Huntsville Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13500 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "992" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13500 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Huntsville%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Huntsville Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13500 Summary", "13500 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13500 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13500 Lrg Ticket").Delete
Sheets("13500 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13600 Summary", "13600 Lrg Ticket", "13600 Cardholders with MCC", "13600 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Kazoo Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13600 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "973" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13600 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Kazoo%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Kalamazoo Gazette Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh


Sheets(Array("13600 Summary", "13600 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13600 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13600 Lrg Ticket").Delete
Sheets("13600 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13710 Summary", "13710 Lrg Ticket", "13710 Cardholders with MCC", "13710 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "AAO Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13710 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13710 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "AAO%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Ann Arbor Offset Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh


Sheets(Array("13710 Summary", "13710 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13710 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13710 Lrg Ticket").Delete
Sheets("13710 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("14600 Summary", "14600 Lrg Ticket", "14600 Cardholders with MCC", "14600 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Express-Times Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("14600 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "980" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("14600 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Express-Times%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Express-Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("14600 Summary", "14600 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("14600 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("14600 Lrg Ticket").Delete
Sheets("14600 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("14800 Summary", "14800 Lrg Ticket", "14800 Cardholders with MCC", "14800 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Muskegon Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("14800 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "989" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("14800 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Muskegon%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Muskegon Chronicle Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("14800 Summary", "14800 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("14800 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("14800 Lrg Ticket").Delete
Sheets("14800 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15000 Summary", "15000 Lrg Ticket", "15000 Cardholders with MCC", "15000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Jackson Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "975" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Jackson%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Jackson Citizen Patriot Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15000 Summary", "15000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15000 Lrg Ticket").Delete
Sheets("15000 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15100 Summary", "15100 Lrg Ticket", "15100 Cardholders with MCC", "15100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "EJA Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "EJA%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Evening Journal Association Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15100 Summary", "15100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15100 Lrg Ticket").Delete
Sheets("15100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15301 Summary", "15301 Lrg Ticket", "15301 Cardholders with MCC", "15301 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "SJN Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15301 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15301 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "SJN%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The South Jersey Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15301 Summary", "15301 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15301 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15301 Lrg Ticket").Delete
Sheets("15301 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("17100 Summary", "17100 Lrg Ticket", "17100 Cardholders with MCC", "17100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NJN Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("17100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("17100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NJN%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The North Jersey Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("17100 Summary", "17100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("17100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("17100 Lrg Ticket").Delete
Sheets("17100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("17200 Summary", "17200 Lrg Ticket", "17200 Cardholders with MCC", "17200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Sun Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("17200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("17200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Sun%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Sun Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("17200 Summary", "17200 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("17200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("17200 Lrg Ticket").Delete
Sheets("17200 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19100 Summary", "19100 Lrg Ticket", "19100 Cardholders with MCC", "19100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Booth Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "993" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Booth%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Booth Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19100 Summary", "19100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19100 Lrg Ticket").Delete
Sheets("19100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19000 Summary", "19000 Lrg Ticket", "19000 Cardholders with MCC", "19000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NSS Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "981" And (Cells(2, i).Value) <> "985" And (Cells(2, i).Value) <> "990" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NSS%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Newspaper Support Services Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19000 Summary", "19000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19000 Lrg Ticket").Delete
Sheets("19000 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("19130 Summary", "19130 Lrg Ticket", "19130 Cardholders with MCC", "19130 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Valley Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19130 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "976" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19130 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Valley%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Valley Publishing Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19130 Summary", "19130 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19130 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19130 Lrg Ticket").Delete
Sheets("19130 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19240 Summary", "19240 Lrg Ticket", "19240 Cardholders with MCC", "19240 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NJLNS Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19240 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19240 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NJLNS%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The New Jersey Local News Service, LLC Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19240 Summary", "19240 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19240 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19240 Lrg Ticket").Delete
Sheets("19240 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19300 Summary", "19300 Lrg Ticket", "19300 Cardholders with MCC", "19300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "MBR Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "MBR%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Michigan Business Review Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19300 Summary", "19300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19300 Lrg Ticket").Delete
Sheets("19300 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("23700 Summary", "23700 Lrg Ticket", "23700 Cardholders with MCC", "23700 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "AA.com Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("23700 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("23700 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "AA.com%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Ann Arbor.com Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("23700 Summary", "23700 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("23700 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("23700 Lrg Ticket").Delete
Sheets("23700 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate

    Sheets(Array("Instructions", "MCC", "Livelink Security", "PaymentNet Access", _
        "Champions", "Q3 Trans", "Q3 Trans Count", "Q3 Large Ticket",  "Q3 Cards", "Q4 Trans", "Q4 Trans Count", "Q4 Large Ticket", _
        "Q4 Cards", "Q2 Trans", "Q2 Trans Count", "Q2 Large Ticket", "Q2  Cards", "Q1 Trans", "Q1 Trans Count", "Q1 Large Ticket", "Q1  Cards")).Move Before:=Sheets(1)
wbMain.Save
Application.ScreenUpdating = True
MsgBox ("Complete")
Application.DisplayAlerts = True

End Sub

The full set of macros is:

Rich (BB code):

Option Explicit
Sub Q2_Update()
Application.ScreenUpdating = False
Dim c As Range
Dim ws As Worksheet
Dim MywsCount As Long
Dim lastRow As Long

Sheets("Champions").Select
lastRow = Range("B" & Rows.Count).End(xlUp).Row
MywsCount = 0
For Each c In Range("H2:H" & lastRow)
If c <> "" Then
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = c.Value & " Summary" Then
        MywsCount = MywsCount + 1
        End If
    Next ws
        If MywsCount = 0 Then
        Set ws = Sheets.Add
        ws.Name = c.Value & " Summary"
        End If
End If
MywsCount = 0
Next c

Sheets("Champions").Select
MywsCount = 0
For Each c In Range("H2:H" & lastRow)
If c <> "" Then
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = c.Value & " Cardholders with MCC" Then
        MywsCount = MywsCount + 1
        End If
    Next ws
        If MywsCount = 0 Then
        Set ws = Sheets.Add
        ws.Name = c.Value & " Cardholders with MCC"
        End If
End If
MywsCount = 0
Next c
Sheets("Champions").Select
For Each c In Range("H2:H" & lastRow)
If c <> "" Then
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = c.Value & " Livelink_PaymentNet" Then
        MywsCount = MywsCount + 1
        End If
    Next ws
        If MywsCount = 0 Then
        Set ws = Sheets.Add
        ws.Name = c.Value & " Livelink_PaymentNet"
        End If
End If
MywsCount = 0
Next c

Sheets("Champions").Select
lastRow = Range("B" & Rows.Count).End(xlUp).Row
MywsCount = 0
For Each c In Range("H2:H" & lastRow)
If c <> "" Then
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = c.Value & " Lrg Ticket" Then
        MywsCount = MywsCount + 1
        End If
    Next ws
        If MywsCount = 0 Then
        Set ws = Sheets.Add
        ws.Name = c.Value & " Lrg Ticket"
        End If
End If
MywsCount = 0
Next c

Call transCount2
End Sub

    
Sub transCount2()
Application.ScreenUpdating = False
Sheets("Q2 Trans Count").Select
Cells.ClearContents
Range("A1").Value = "BU"
Range("B1").Value = "Trans ID"
Range("C1").Value = "Amount"
Dim lastRow As Long
Dim SiteCol As Range, cell As Range
Dim wsDest As Worksheet
Dim i As Long
Sheets("Q2 Trans").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("M2:M" & lastRow).Replace What:="19120", Replacement:="19000", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False
Set wsDest = Worksheets("Q2 Trans Count")
i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
If (i = 2) And (wsDest.Cells(2, 1) = "") Then i = 0
Set SiteCol = Range("A2")
Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
For Each cell In SiteCol.Cells
If cell.Value <> "" Then
i = i + 1
wsDest.Cells(i, 1).Resize(1, 3) = Array(cell.Offset(0, 12), cell, cell.Offset(, 6))
End If
Next

Sheets("Q2 Trans Count").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$C$" & lastRow).RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes


Call summary2
End Sub

Sub summary2()
Application.ScreenUpdating = False
Dim lastRow As Long
Dim lastRow2 As Long
Sheets("Q2 Trans Count").Select
lastRow2 = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
Dim ws As Worksheet
Dim myVar As String
Dim tYear As String
Dim lYear As String
tYear = Format(Now(), "yyyy")
lYear = tYear - 1

Dim myTemp As Range
Set myTemp = Worksheets("Summary Template").Range("A1:N31")

Dim myReb As Double
myReb = Application.InputBox("What is the current estimated rebate rate?", 1)


For Each ws In ThisWorkbook.Sheets
       If ws.Name Like "##### Summary" Then
       ws.Rows.Hidden = False
       ws.Columns.Hidden = False
       myVar = Left(ws.Name, 5)
       ws.Range("F4").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<0"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)"
       ws.Range("F5").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<499.99"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)-R[-1]C"
       ws.Range("F6").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<999.991"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)-(R[-1]C+R[-2]C)"
       ws.Range("F7").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<2499.99"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C)"
       ws.Range("F8").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<4999.99"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C+R[-4]C)"
       ws.Range("F9").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,""<9999.991"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C+R[-4]C+R[-5]C)"
       ws.Range("F10").FormulaR1C1 = "=COUNTIFS('Q2 Trans Count'!R2C3:R" & lastRow2 & "C3,"">9999.99"",'Q2 Trans Count'!R2C1:R" & lastRow2 & "C1,""=" & myVar & """)"
       ws.Range("G4").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<0"",'Q2 Trans'!C13,""=" & myVar & """)"
       ws.Range("G5").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<499.99"",'Q2 Trans'!C13,""=" & myVar & """)-R[-1]C"
       ws.Range("G6").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<999.991"",'Q2 Trans'!C13,""=" & myVar & """)-(R[-1]C+R[-2]C)"
       ws.Range("G7").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<2499.99"",'Q2 Trans'!C13,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C)"
       ws.Range("G8").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<4999.99"",'Q2 Trans'!C13,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C+R[-4]C)"
       ws.Range("G9").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,""<9999.991"",'Q2 Trans'!C13,""=" & myVar & """)-(R[-1]C+R[-2]C+R[-3]C+R[-4]C+R[-5]C)"
       ws.Range("G10").FormulaR1C1 = "=SUMIFS('Q2 Trans'!C7,'Q2 Trans'!C7,"">9999.99"",'Q2 Trans'!C13,""=" & myVar & """)"
       ws.Range("F13:G13").FormulaR1C1 = "=SUMIF('Q2 Large Ticket'!C3,""=" & myVar & """,'Q2 Large Ticket'!C8)"
       ws.Range("F15:G15").FormulaR1C1 = "=COUNTIFS('Q2 Cards'!C12,""=" & myVar & """,'Q2 Cards'!C1,""=Active"")"
       ws.Range("F16:G16").FormulaR1C1 = "=COUNTIFS('Q2 Cards'!C12,""=" & myVar & """,'Q2 Cards'!C1,""=Card Activation"")"
       ws.Range("L4").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L5").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L6").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L7").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L8").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L9").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("L10").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M4").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M5").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M6").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M7").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M8").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M9").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("M10").FormulaR1C1 = "=((RC[-4] + RC[-6])*2)"
       ws.Range("N4").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N5").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N6").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N7").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N8").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N9").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
       ws.Range("N10").FormulaR1C1 = "=RC[-1]*" & myReb & "%"
 
       ws.Range("F25").FormulaR1C1 = "=(R[-3]C-R[-4]C)/R[-4]C"
       ws.Range("G25").FormulaR1C1 = "=(R[-3]C-R[-4]C)/R[-4]C"
       ws.Range("F28").FormulaR1C1 = "=(R[-1]C-R[-2]C)/R[-2]C"
       ws.Range("G28").FormulaR1C1 = "=(R[-1]C-R[-2]C)/R[-2]C"
       ws.Range("A25").Value = "VISA Program Growth % (tq over lq)"
            ws.Range("A1:N31").Replace What:=" ty", Replacement:=tYear, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
            ws.Range("A1:N31").Replace What:=" ly", Replacement:=lYear, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
            ws.Range("A1:N31").Replace What:="tq", Replacement:="Q2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
            ws.Range("A1:N31").Replace What:="lq", Replacement:="Q1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
       ws.Range("A31").Value = ""
       ws.Columns.AutoFit
       ws.Range("A31").Value = "*" & tYear & " potential rebates calculated at a " & myReb & "% rebate rate and does not include any potential large ticket or fraud loss impact."
       ws.Range("J26").FormulaR1C1 = "=VLOOKUP(" & myVar & ",'LY Totals'!C[-9]:C[-6],4,FALSE)"
       ws.Range("B:E").EntireColumn.Hidden = True
       ws.Range("H:K").EntireColumn.Hidden = True
       ws.Range("A20:A20").EntireRow.Hidden = True
       ws.Range("A23:A24").EntireRow.Hidden = True
       ws.PageSetup.PrintArea = "$A$1:$N$31"
       With ws.PageSetup
            .Orientation = xlLandscape
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
       End If
Next ws

Call Cards2
End Sub

Sub Cards2()
Application.ScreenUpdating = False
Dim lastRow As Long
Dim c As Range
Dim ws As Worksheet
Dim myVar As String
Dim SiteCol As Range, cell As Range
Dim wsDest As Worksheet
Dim i As Long
Sheets("MCC").Select
    Columns("X:X").Select
    Selection.Cut
    Columns("V:V").Select
    Selection.Insert Shift:=xlToRight
    Columns("AE:AE").Select
    Selection.Cut
    Columns("W:W").Select
    Selection.Insert Shift:=xlToRight
    Columns("AK:AL").Select
    Selection.Cut
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight
    Columns("AS:AS").Select
    Selection.Cut
    Columns("Z:Z").Select
    Selection.Insert Shift:=xlToRight
Range("C2:CA2").NumberFormat = "@"
For Each c In Range("C2:CA2")
    If c <> "" Then
    c.Value = Format(c.Value, "000")
    End If
Next c
    
    
For Each ws In ThisWorkbook.Sheets
       If ws.Name Like "##### Cardholders with MCC" Then
       ws.Cells.ClearContents
       myVar = Left(ws.Name, 5)
       Sheets("Q2 Cards").Select
       Set wsDest = ws
       i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
       If (i = 2) And (wsDest.Cells(2, 1) = "") Then i = 0
       Set SiteCol = Range("A2")
       Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
            For Each cell In SiteCol.Cells
                If cell.Value <> "" And cell.Offset(, 11) = myVar Then
                i = i + 1
                wsDest.Cells(i, 1).Resize(1, 19) = Array(cell.Offset(0, 1), cell.Offset(, 2), cell.Offset(0, 3), cell.Offset(0, 4), cell.Offset(0, 5), cell.Offset(0, 11), cell.Offset(0, 6), cell.Offset(0, 7), cell.Offset(0, 8), cell.Offset(0, 9), cell.Offset(0, 10), cell.Offset(0, 12), cell.Offset(0, 13), cell.Offset(0, 14), cell.Offset(0, 15), cell.Offset(0, 16), cell.Offset(0, 17), cell.Offset(0, 18), cell)
                End If
            Next
       ws.Range("A1").Value = "Last Name"
       ws.Range("B1").Value = "First Name"
       ws.Range("C1").Value = "Acct Number"
       ws.Range("D1").Value = "Single Limit"
       ws.Range("E1").Value = "Mo Limit"
       ws.Range("F1").Value = "BU"
       ws.Range("G1").Value = "MCC1"
       ws.Range("H1").Value = "MCC2"
       ws.Range("I1").Value = "MCC3"
       ws.Range("J1").Value = "MCC4"
       ws.Range("K1").Value = "MCC4"
       ws.Range("L1").Value = "L1-L2-Proj"
       ws.Range("M1").Value = "Dept"
       ws.Range("N1").Value = "GL"
       ws.Range("O1").Value = "PNet Access"
       ws.Range("P1").Value = "COM Access"
       ws.Range("Q1").Value = "ESP Access"
       ws.Range("R1").Value = "Admin Access"
       ws.Range("S1").Value = "Status"
       ws.Range("A1:R1").Font.Bold = True
       ws.Columns.AutoFit
       ws.Range("D:E").NumberFormat = "$#,##0.00"
       lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.PageSetup.PrintArea = "$A$1:$R$" & lastRow
        With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With
       
    ws.Activate
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("A2:A" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("B2:B" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:R" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End If
Next ws
Call LrgTix2
End Sub
Sub LrgTix2()

Application.ScreenUpdating = False
Dim lastRow As Long
Dim lastRow2 As Long
Dim c As Range
Dim ws As Worksheet
Dim myVar As String
Dim SiteCol As Range, cell As Range
Dim wsDest As Worksheet
Dim i As Long

Sheets("Q2 Large Ticket").Select
Range("C:C").NumberFormat = "@"
For Each ws In ThisWorkbook.Sheets
       If ws.Name Like "##### Lrg Ticket" Then
       lastRow2 = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
       myVar = Left(ws.Name, 5)
       Sheets("Q2 Large Ticket").Select
       Set wsDest = ws
       i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
       If (i = lastRow2) And (wsDest.Cells(lastRow2, 1) = "") Then i = 0
       Set SiteCol = Range("C2")
       Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
            For Each cell In SiteCol.Cells
                If cell.Value = myVar Then
                i = i + 1
                wsDest.Cells(i, 1).Resize(1, 12) = Array(cell.Offset(0, -2), cell.Offset(, -1), cell, cell.Offset(0, 1), cell.Offset(0, 2), cell.Offset(0, 3), cell.Offset(0, 4), cell.Offset(0, 5), cell.Offset(0, 6), cell.Offset(0, 7), cell.Offset(0, 8), cell.Offset(0, 9))
                End If
            Next
       ws.Range("A1").Value = "AGT_BK_NUM"
       ws.Range("B1").Value = "UNIT_NAME"
       ws.Range("C1").Value = "BU"
       ws.Range("D1").Value = "NAME1"
       ws.Range("E1").Value = "TRAN_DT"
       ws.Range("F1").Value = "TRAN_POST_DT"
       ws.Range("G1").Value = "Month"
       ws.Range("H1").Value = "TRAN_AMT"
       ws.Range("I1").Value = "MERCH_NAME3"
       ws.Range("J1").Value = "MERCH_SIC"
       ws.Range("K1").Value = "MERCH_CITY"
       ws.Range("L1").Value = "MERCH_STATE"
       ws.Range("A1:l1").Font.Bold = True
       ws.Columns.AutoFit
       ws.Range("E:F").NumberFormat = "m/d/yyyy"
       ws.Range("H:H").NumberFormat = "$#,##0.00"
       lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.PageSetup.PrintArea = "$A$1:$L$" & lastRow
        With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With
       
    ws.Activate
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("F2:F" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("I2:I" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:L" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End If
Next ws

Call Approvers2
End Sub

Sub Approvers2()
Application.ScreenUpdating = False
Dim lastRow As Long
Dim c As Range
Dim ws As Worksheet
Dim myVar As String
Dim SiteCol As Range, cell As Range
Dim wsDest As Worksheet
Dim i As Long

For Each ws In ThisWorkbook.Sheets
       If ws.Name Like "##### Livelink_PaymentNet" And ws.Name <> "12300 Livelink_PaymentNet" Then
       ws.Cells.ClearContents
       myVar = Left(ws.Name, 5)
       Sheets("Livelink Security").Select
       Set wsDest = ws
       i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
       If (i = 2) And (wsDest.Cells(2, 1) = "") Then i = 0
       Set SiteCol = Range("A2")
       Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
            For Each cell In SiteCol.Cells
                If cell.Value <> "" And cell.Value = myVar Then
                i = i + 1
                wsDest.Cells(i, 1).Resize(1, 6) = Array(cell, cell.Offset(0, 2), cell.Offset(0, 5), cell.Offset(0, 4), cell.Offset(0, 1), cell.Offset(0, 3))
                End If
            Next
       ws.Range("A1").Value = "Business Unit"
       ws.Range("B1").Value = "Department"
       ws.Range("C1").Value = "Level"
       ws.Range("D1").Value = "Threshhold Amount"
       ws.Range("E1").Value = "Approver"
       ws.Range("F1").Value = "Role"
       ws.Range("A1:F1").Font.Bold = True
       lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
       For Each c In ws.Range("E2:E" & lastRow)
        If c.Value <> "" Then c = WorksheetFunction.Proper(Left(c, ((WorksheetFunction.Find("(", c)) - 2)))
       Next c
       ws.Range("D:D").NumberFormat = "$#,##0.00"
       
        ws.PageSetup.PrintArea = "$A$1:$F$" & lastRow
        With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        End With
       
    ws.Activate
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("B2:B" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("C2:C" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add _
        Key:=Range("E2:E" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ws.Range("F2:F" & lastRow).Replace What:="Y", Replacement:="Primary", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ws.Range("F2:F" & lastRow).Replace What:="N", Replacement:="Back-up", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ws.Columns.AutoFit
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:F" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End If
Next ws

For Each ws In ThisWorkbook.Sheets
       If ws.Name = "12300 Livelink_PaymentNet" Then
       ws.Cells.ClearContents
       myVar = Left(ws.Name, 5)
       Sheets("PaymentNet Access").Select
       Set wsDest = ws
       i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
       If (i = 2) And (wsDest.Cells(2, 1) = "") Then i = 0
       Set SiteCol = Range("A2")
       Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
            For Each cell In SiteCol.Cells
                If cell.Value <> "" And cell.Offset(, 2).Value = myVar Then
                i = i + 1
                wsDest.Cells(i, 1).Resize(1, 11) = Array(cell, cell.Offset(0, 1), cell.Offset(0, 2), cell.Offset(0, 3), cell.Offset(0, 4), cell.Offset(0, 5), cell.Offset(0, 6), cell.Offset(0, 7), cell.Offset(0, 8), cell.Offset(0, 9), cell.Offset(0, 10))
                End If
            Next
                ws.Range("A1").Value = "Last Name"
                ws.Range("B1").Value = "First Name"
                ws.Range("C1").Value = "BU"
                ws.Range("D1").Value = "PNet Access Role"
                ws.Range("E1").Value = "COM Access Role"
                ws.Range("F1").Value = "ESP Access Role"
                ws.Range("G1").Value = "Admin Access Role"
                ws.Range("H1").Value = "Cardholder?"
                ws.Range("I1").Value = "User ID Status"
                ws.Range("A1:I1").Font.Bold = True
                lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
                For Each c In ws.Range("A2:A" & lastRow)
                If c <> "" Then c.Value = WorksheetFunction.Proper(c)
                Next c
                For Each c In ws.Range("B2:B" & lastRow)
                If c <> "" Then c.Value = WorksheetFunction.Proper(c)
                Next c
                ws.Range("H2:H" & lastRow).Replace What:="0", Replacement:="No", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
                    ReplaceFormat:=False
                 ws.Range("H2:H" & lastRow).Replace What:="1", Replacement:="Yes", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
                    ReplaceFormat:=False
                ws.Columns.AutoFit
                ws.Range("$A$1:$K$" & lastRow).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
        7, 8, 9, 10, 11), Header:=xlYes
                lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
                ws.Range("A" & lastRow + 4).Value = "*Local Champion appears as Cardholder for ability to print monthly statement."
       
       End If
Next ws

Call breakout2
End Sub

Sub breakout2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Sh As Worksheet
Dim lastRow As Long
Dim c As Range
Dim wbMain As Workbook
Dim wbNew As Workbook
Dim myYear As String
Dim myPath As String
Dim myAddr As String
Dim i As Long
myYear = Format(Now(), "yyyy")
myPath = "G:\PCard Directory\Quarterly Reviews\" & myYear & "\Q2\"

Set wbMain = ThisWorkbook

Sheets(Array("10100 Summary", "10100 Lrg Ticket", "10100 Cardholders with MCC", "10100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Star-Ledger Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "987" And (Cells(2, i).Value) <> "988" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Star-Ledger%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Star-Ledger Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10100 Summary", "10100 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10100 Lrg Ticket").Delete
Sheets("10100 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("10200 Summary", "10200 Lrg Ticket", "10200 Cardholders with MCC", "10200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Plain_Dealer Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "972" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Plain_Dealer%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Plain Dealer Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10200 Summary", "10200 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10200 Lrg Ticket").Delete
Sheets("10200 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("10300 Summary", "10300 Lrg Ticket", "10300 Cardholders with MCC", "10300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Oregonian Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "974" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Oregonian%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Oregonian Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10300 Summary", "10300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("10300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10300 Lrg Ticket").Delete
Sheets("10300 Summary").Select

wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("10400 Summary", "10400 Lrg Ticket", "10400 Cardholders with MCC", "10400 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Times_Picayune Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("10400 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("10400 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Times_Picayune%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Times-Picayune Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("10400 Summary", "10400 Lrg Ticket")).Move Before:=Sheets(1)

Sheets("10400 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("10400 Lrg Ticket").Delete
Sheets("10400 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("12000 Summary", "12000 Lrg Ticket", "12000 Cardholders with MCC", "12000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Birmingham Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "969" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Birmingham%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Birmingham News Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12000 Summary", "12000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12000 Lrg Ticket").Delete
Sheets("12000 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("12100 Summary", "12100 Lrg Ticket", "12100 Cardholders with MCC", "12100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "GRP Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "971" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "GRP%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Grand Rapids Press Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12100 Summary", "12100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12100 Lrg Ticket").Delete
Sheets("12100 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("12200 Summary", "12200 Lrg Ticket", "12200 Cardholders with MCC", "12200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Post_Standard Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "982" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Post_Standard%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Post-Standard Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("12200 Summary", "12200 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12200 Lrg Ticket").Delete
Sheets("12200 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("12300 Summary", "12300 Lrg Ticket", "12300 Cardholders with MCC", "12300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "PatNews Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("12300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "968" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("12300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "PatNews%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Patriot-News Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh
Sheets("12300 Livelink_PaymentNet").Name = "Approvers_Finance"

Sheets(Array("12300 Summary", "12300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("12300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("12300 Lrg Ticket").Delete
Sheets("12300 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13000 Summary", "13000 Lrg Ticket", "13000 Cardholders with MCC", "13000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "MPR Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "978" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "MPR%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Press-Register Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13000 Summary", "13000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13000 Lrg Ticket").Delete
Sheets("13000 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13100 Summary", "13100 Lrg Ticket", "13100 Cardholders with MCC", "13100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Republican Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "979" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Republican%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Republican Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13100 Summary", "13100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13100 Lrg Ticket").Delete
Sheets("13100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13300 Summary", "13300 Lrg Ticket", "13300 Cardholders with MCC", "13300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Times Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "987" And (Cells(2, i).Value) <> "988" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Times%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13300 Summary", "13300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13300 Lrg Ticket").Delete
Sheets("13300 Summary").Select
wbNew.Save
wbNew.Close

wbMain.Activate
Sheets(Array("13400 Summary", "13400 Lrg Ticket", "13400 Cardholders with MCC", "13400 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "SIA Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13400 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "986" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13400 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "SIA%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Staten Island Advance Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13400 Summary", "13400 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13400 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13400 Lrg Ticket").Delete
Sheets("13400 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13500 Summary", "13500 Lrg Ticket", "13500 Cardholders with MCC", "13500 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Huntsville Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13500 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "992" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13500 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Huntsville%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Huntsville Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("13500 Summary", "13500 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13500 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13500 Lrg Ticket").Delete
Sheets("13500 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13600 Summary", "13600 Lrg Ticket", "13600 Cardholders with MCC", "13600 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Kazoo Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13600 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "973" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13600 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Kazoo%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Kalamazoo Gazette Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh


Sheets(Array("13600 Summary", "13600 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13600 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13600 Lrg Ticket").Delete
Sheets("13600 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("13710 Summary", "13710 Lrg Ticket", "13710 Cardholders with MCC", "13710 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "AAO Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("13710 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("13710 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "AAO%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Ann Arbor Offset Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh


Sheets(Array("13710 Summary", "13710 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("13710 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("13710 Lrg Ticket").Delete
Sheets("13710 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("14600 Summary", "14600 Lrg Ticket", "14600 Cardholders with MCC", "14600 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Express-Times Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("14600 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "980" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("14600 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Express-Times%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Express-Times Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("14600 Summary", "14600 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("14600 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("14600 Lrg Ticket").Delete
Sheets("14600 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("14800 Summary", "14800 Lrg Ticket", "14800 Cardholders with MCC", "14800 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Muskegon Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("14800 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "989" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("14800 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Muskegon%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Muskegon Chronicle Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("14800 Summary", "14800 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("14800 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("14800 Lrg Ticket").Delete
Sheets("14800 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15000 Summary", "15000 Lrg Ticket", "15000 Cardholders with MCC", "15000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Jackson Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "975" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Jackson%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Jackson Citizen Patriot Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15000 Summary", "15000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15000 Lrg Ticket").Delete
Sheets("15000 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15100 Summary", "15100 Lrg Ticket", "15100 Cardholders with MCC", "15100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "EJA Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "EJA%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Evening Journal Association Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15100 Summary", "15100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15100 Lrg Ticket").Delete
Sheets("15100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("15301 Summary", "15301 Lrg Ticket", "15301 Cardholders with MCC", "15301 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "SJN Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("15301 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("15301 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "SJN%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The South Jersey Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("15301 Summary", "15301 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("15301 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("15301 Lrg Ticket").Delete
Sheets("15301 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("17100 Summary", "17100 Lrg Ticket", "17100 Cardholders with MCC", "17100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NJN Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("17100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("17100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NJN%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The North Jersey Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("17100 Summary", "17100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("17100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("17100 Lrg Ticket").Delete
Sheets("17100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("17200 Summary", "17200 Lrg Ticket", "17200 Cardholders with MCC", "17200 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Sun Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("17200 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("17200 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Sun%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Sun Newspapers Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("17200 Summary", "17200 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("17200 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("17200 Lrg Ticket").Delete
Sheets("17200 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19100 Summary", "19100 Lrg Ticket", "19100 Cardholders with MCC", "19100 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Booth Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19100 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "993" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19100 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Booth%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Booth Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19100 Summary", "19100 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19100 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19100 Lrg Ticket").Delete
Sheets("19100 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19000 Summary", "19000 Lrg Ticket", "19000 Cardholders with MCC", "19000 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NSS Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19000 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "981" And (Cells(2, i).Value) <> "985" And (Cells(2, i).Value) <> "990" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19000 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NSS%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Newspaper Support Services Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19000 Summary", "19000 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19000 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19000 Lrg Ticket").Delete
Sheets("19000 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate
Sheets(Array("19130 Summary", "19130 Lrg Ticket", "19130 Cardholders with MCC", "19130 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "Valley Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19130 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "976" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19130 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "Valley%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Valley Publishing Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19130 Summary", "19130 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19130 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19130 Lrg Ticket").Delete
Sheets("19130 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19240 Summary", "19240 Lrg Ticket", "19240 Cardholders with MCC", "19240 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "NJLNS Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19240 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19240 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "NJLNS%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The New Jersey Local News Service, LLC Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19240 Summary", "19240 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19240 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19240 Lrg Ticket").Delete
Sheets("19240 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("19300 Summary", "19300 Lrg Ticket", "19300 Cardholders with MCC", "19300 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "MBR Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("19300 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("19300 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "MBR%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Michigan Business Review Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("19300 Summary", "19300 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("19300 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("19300 Lrg Ticket").Delete
Sheets("19300 Summary").Select
wbNew.Save
wbNew.Close



wbMain.Activate
Sheets(Array("23700 Summary", "23700 Lrg Ticket", "23700 Cardholders with MCC", "23700 Livelink_PaymentNet", "MCC")).Select
Windows(1).SelectedSheets.Copy
Application.CutCopyMode = False
Set wbNew = ActiveWorkbook
wbNew.SaveAs (myPath & "AA.com Q2.xls"), FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Sheets("23700 Summary").Select
Range("A1:N31").Value = Range("A1:N31").Value
Sheets("MCC").Name = "MCC_Breakout"
Sheets("MCC_Breakout").Select
For i = 49 To 26 Step -1
If (Cells(2, i).Value) <> "956" Then
Cells(2, i).EntireColumn.Delete
End If
Next i

Sheets("MCC_Breakout").Range("C4").Activate
ActiveWindow.FreezePanes = True
Sheets("23700 Cardholders with MCC").Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G2:K" & lastRow)
    If c <> "" And c.Value <> "000" Then
    myAddr = Cells(2, WorksheetFunction.Match(c, wbNew.Sheets("MCC_Breakout").Range("2:2"), 0)).Address
    ActiveSheet.Hyperlinks.Add Anchor:=c, Address:= _
        "AA.com%20Q2.xls", SubAddress:="MCC_Breakout!" & myAddr, TextToDisplay:=c.Value
    End If
myAddr = ""
Next c
For Each Sh In Worksheets
    With Sh.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With Sh.PageSetup
        .CenterHeader = "The Ann Arbor.com Quarterly Review"
        .RightFooter = "&P & of &N"
    End With
Next Sh

Sheets(Array("23700 Summary", "23700 Lrg Ticket")).Move Before:=Sheets(1)
Sheets("23700 Lrg Ticket").Select
If Range("A2") = "" Then Sheets("23700 Lrg Ticket").Delete
Sheets("23700 Summary").Select
wbNew.Save
wbNew.Close


wbMain.Activate

    Sheets(Array("Instructions", "MCC", "Livelink Security", "PaymentNet Access", _
        "Champions", "Q3 Trans", "Q3 Trans Count", "Q3 Large Ticket", "Q3 Cards", "Q4 Trans", "Q4 Trans Count", "Q4 Large Ticket", _
        "Q4 Cards", "Q2 Trans", "Q2 Trans Count", "Q2 Large Ticket", "Q2 Cards", "Q1 Trans", "Q1 Trans Count", "Q1 Large Ticket", "Q1 Cards")).Move Before:=Sheets(1)
wbMain.Save
Application.ScreenUpdating = True
MsgBox ("Complete")
Application.DisplayAlerts = True

End Sub

Joe4 · Jul 21, 2011

Try breaking it up, i.e.

Code:

Sheets("MCC_Breakout").Activate
Range("C4").Activate

If you are not already on that sheet, I don't think you can do it all in one step. I think you need to activate the sheet first before you can select a range on it.

Issues with VB FreezePanes

jmthompson

Well-known Member

Excel Facts

Joe4

MrExcel MVP, Junior Admin

Similar threads

Forum statistics

Share this page

Issues with VB FreezePanes

jmthompson

Well-known Member

Excel Facts

Joe4

MrExcel MVP, Junior Admin

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock