On Apr 15, 8:28*am, Matthew Dyer wrote:
I have no idea why this code isn't working. I've used it in other
macros but it isnt working here. Don't know why. Frustraited beyond
belief.

Sub Print_MTD2()
Application.ScreenUpdating = False
Dim WBNew As Workbook
Dim WSNew As Worksheet
Dim strBookName As String
Dim strSheetName As String

'build new Workbook/worksheet to copy data into
Set WSNew = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
Set WBNew = ActiveWorkbook

strBookName = ActiveWorkbook.Name
strSheetName = ActiveSheet.Name

'copy columns from MTD to new sheet
Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$a:$a").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("a")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$ay:$ay").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("b")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$c:$c").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("c")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$G:$G").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("d")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$I:$I").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("e")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$bG:$bG").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("f")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$k:$k").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("g")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$v:$v").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("h")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$o:$o").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("i")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$t:$t").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("j")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$m:$m").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("k")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$ae:$ae").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("l")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$bb:$bb").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("m")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$u:$u").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("n")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$n:$n").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("o")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$s:$s").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("p")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$as:$as").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("q")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("$aw:$aw").Copy _
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Columns("r")

Workbooks("Analytics.xlsm").Worksheets("MTD").Rang e("bj1:bj105").Copy
_
Destination:=Workbooks(strBookName).Worksheets(str SheetName).Range("s1:s105*")

Workbooks(strBookName).Worksheets(strSheetName).Ra nge("s1:s105").Formula
= "=""Last Updated - ""& Text(Max(A:A), ""mm/dd/yy"")"

Cells.EntireColumn.AutoFit

'clear filters/groups and show group column level 1
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

'unmerge all cells, clear filters and short by column e (agent name)
ascending
'Range("a1").Select
'Range(Selection, Selection.SpecialCells(xlLastCell)).Select
'Selection.UnMerge

'**ERROR OCCURS HERE**
ActiveWorkbook.Worksheets(strSheetName).AutoFilter .Sort.SortFields.Add
Key:=Range( _
* * "e2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
* * xlSortNormal
With ActiveWorkbook.Worksheets(strSheetName).AutoFilter .Sort
* * .Header = xlYes
* * .MatchCase = False
* * .Orientation = xlTopToBottom
* * .SortMethod = xlPinYin
* * .Apply
End With

end sub

nm. it's working now.