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