Macros issues with END WITH's/ END SUB's

[maulik1k]

Hi i am a novice and i am looking to get this macro to work; however, i get an error in the end saying " compile error: end with or end sub "

thanks,

Maulik.

'
    Sheets("Large MBS Diff").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")
        .PivotItems("SBA").Visible = True
        .PivotItems("CMBS Only").Visible = False
        .PivotItems("MBS").Visible = False
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "SBA trader marks vs. other pricing sources"
    
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row
        .PageSetup.PrintArea = "A1:N" & LastRow
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")
        .PivotItems("Munis").Visible = True
        .PivotItems("SBA").Visible = False
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Municipal Bond trader marks vs. other pricing sources"
    
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row
        .PageSetup.PrintArea = "A1:N" & LastRow
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")
        .PivotItems("Emerging Markets").Visible = True
        .PivotItems("Munis").Visible = False
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "EM trader marks vs. other pricing sources"
    
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row
        .PageSetup.PrintArea = "A1:N" & LastRow
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")
        .PivotItems("US IG").Visible = True
        .PivotItems("US HY").Visible = True
        .PivotItems("Emerging Markets").Visible = False
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "Corporate Bonds trader marks vs. other pricing sources"
    
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row
        .PageSetup.PrintArea = "A1:N" & LastRow
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME")
        .PivotItems("MBS").Visible = True
        .PivotItems("CMBS Only").Visible = True
        .PivotItems("US IG ").Visible = False
        .PivotItems("US HY").Visible = False
    End With
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "MBS trader marks vs. other pricing sources"
    
    Sheets("MDGT marks").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
       
End Sub

Moderators note: code tags added for you - this time

[judgeh59]

just a few things

1) the moderators will probably not like the title of your post....it needs to be more descriptive
2) the moderators will probably tell you to put code tags around the code....IE wrap the word CODE inside [] at the beginning and at the end put /CODE inside []

now to the fun part....I don't see the beginning of the SUB....something like SUB TESTING() and then an END SUB at the end (which is there)
also, I believe, for every With there must be an END WITH....not one at the beginning with a whole bunch of WITHs in the middle and one END WITH at the end....

give that a shot....

[maulik1k]

Hi Thanks for the input I appreciate it. its my first time positing on here so i didnt know wouldnt want to get flagged by the moderators.

[judgeh59]

not a problem, they are usually pretty cool for nubees.....so did that help on the whole adding END WITH's?

[maulik1k]

hi judge i almost got it to work it seems to be erroring out in the end but i need just a couple more tweaks and i should have this thing ready to go thanks for your input.

[judgeh59]

I'm glad I could help....

@Fdibbins - I meant no slight to any MOD....truely I didn't....I did see the though, and I should have put one on mine.....I was guilty early on in my EF life....and justifiably "Noted".....being a MOD can't be easy so, THANKS TO ALL MODS....