Sub weeksummary()
'
' weeksummary Macro
'

'


    ActiveSheet.Unprotect
    Range("C301:E301").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(COUNTIF(R[-237]C:R[-237]C[47],""O"")>0,""O"",IF(COUNTIF(R[-237]C:R[-237]C[47],""i"")>0,""I"",IF(COUNTIF(R[-237]C:R[-237]C[47],""H"")>0,""H"",IF(myTime(R[-237]C:R[-237]C[47])="" - "","""",myTime(R[-237]C:R[-237]C[47])))))"
    Range("C302:E302").Select


    ActiveSheet.Range("$BA$61:$BA$330").AutoFilter Field:=1, Criteria1:="<>0", _
        Operator:=xlAnd
    ActiveWindow.SmallScroll down:=-9
    ActiveSheet.PageSetup.PrintArea = "$A$299:$BD$334"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.Range("$BA$61:$BA$330").AutoFilter Field:=1
    ActiveSheet.PageSetup.PrintArea = ""
    Range("a1").Select
    ActiveWindow.SmallScroll down:=-15

End Sub