Windows Analysis Report 00620 - 2011 Dept Expense Detail.xls

Attribute VB_Name = "Module1"

 Sub HideRows()
Attribute HideRows.VB_ProcData.VB_Invoke_Func = " \n14"
 
    Dim Rnum As Integer, Cnum As Integer, EndRow As Integer
    Dim BeginRow As Integer, BeginColumn As Integer, EndColumn As Integer
    Dim Hideflag
    Dim DateTime
    Worksheets("Actuals").Activate
    With Range("BeginRow")  'Get first row of data/layout
        BeginRow = .Row
    End With
    With Range("End")  'Get last row of data/layout
        EndRow = .Row
    End With
    With Range("BeginColumn")  'Get first column of data/layout
        BeginColumn = .Column
    End With
    With Range("EndColumn")  'Get last column of data/layout
        EndColumn = .Column
    End With
    'this code goes column by row searching for zeroes.  If it gets to
    'the end of a row (last column) and hasn't found a value other than 0,
    'it will hide the entire row and then go to the next row
    For Rnum = BeginRow To EndRow
        Hideflag = "y"
        For Cnum = BeginColumn To EndColumn
          ActiveSheet.Cells(Rnum, Cnum).Select
                If ActiveCell.Value <> 0 Then
                    Hideflag = "n"
                    Cnum = EndColumn
                End If
            If Cnum = EndColumn And Hideflag = "y" Then
                Selection.EntireRow.Hidden = True
            End If
            Next Cnum
        Next Rnum
        
    'this code will insert the run date and time in cell "B2"
    DateTime = Now
    Cells(2, "B").Value = "Run Date and Time: " & DateTime
    
    Range("B1").Select  'places cursor in cell b1 of the report
    
End Sub

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True