Hi All,
I would like to add a code in the vba codes below to hide a selected rows in a worksheet Sheet2. Let say Row 32:41, Row 70:80 and Row 90:99.

Thanks 

Sub Margins1()
With Worksheets("Sheet2").PageSetup
        .Zoom = 98
        '.LeftHeader = "&""Georgia Pro Black,Regular""&6&KFF0000&16& ORIGINAL" 'CHANGE HERE
        '.LeftHeader = ""
        '.CenterHeader = "" 'CHANGE HERE
        .CenterHeader = "&""Georgia Pro Black,Regular""&6&K0000FF&10& FELONY MATRIX JULY 2020" 'CHANGE HERE
        '.RightHeader = ""
        '.RightHeader = "&""Rockwell Extra Bold,Regular""&6&KFF0000&14& ORIGINAL" 'CHANGE HERE
        '.LeftFooter = "" 'CHANGE HERE
        '.CenterFooter = ""
        .CenterFooter = "&""Georgia Pro Black,Regular""&6&K0000FF&24& JULY 2020" ' CHANGE HERE
        '.RightFooter = "" 'CHANGE HERE
         .RightFooter = "&""Rockwell Nova Extra Bold,Regular""&6&KFF0000&24& ORIGINAL" ' CHANGE HERE
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.7)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        '.Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Worksheets("Sheet2").PrintPreview
    Application.Goto Sheets("Sheet2").Range("E3")
End Sub