Hide columns by date criteria

Hi - I am using excel 2003 and need to modify the VBA for ThisWorkbook (see below) to automatically reduce row height of rows to .4 with dates in Worksheet Labelled "Health Check Scorecard" that are prior to today's date and any dates that are today+365X2 (2 years).  the VBAProject list indicates in Sheet2.

Is it possible to do something similar to Sheet1(XYZ) and Sheet8(ABC):  however in these 2 sheets, I would like to just automatically hide all rows with dates that are less than today - 6months.    

Is it possible to adjust the macro below to reflect above?  

thanks in advance for your help.
ub Workbook_Open()

  Application.ScreenUpdating = False
    Dim wkSht As Worksheet


    For Each wkSht In ActiveWorkbook.Worksheets
        With wkSht
            If .ProtectContents = True Then .Protect UserInterfaceOnly:=True, AllowFiltering:=True, Password:="awake"
            If .AutoFilterMode Then
                If .FilterMode Then
                    .ShowAllData
                End If
            Else
                If .FilterMode Then
                    .ShowAllData
                End If
            End If
          If .Visible = xlSheetVisible Then
            .Select
            .[a1].Select
 
            With ActiveWindow
              .Zoom = 75
              .ScrollRow = 1
              .ScrollColumn = 1
            End With
          End If
        End With
    Next wkSht
     
    Worksheets(1).Select
  Application.ScreenUpdating = True
End Sub