Loop through dates in a column

[Jockster]

I would like to loop through dates in column "D" and, where a date is found to be less than today's date, to hide the entire row and then continue on to the next cell in col "D" until the last row with a date in "D".
Also, at a later time, what would be the best way to 'unhide' the hidden rows with one click?

Thanks

 

[MickG]

Double click in column "D" to Hide rows.
Right Click In column "A" to Unhide rows.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range, Dn As Range
Application.ScreenUpdating = False
    If Target.Column = 4 Then
        Set Rng = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
          For Each Dn In Rng
            If IsDate(Dn) Then
                If DateValue(Dn) < Date Then
                    Dn.Rows.Hidden = True
                End If
            End If
        Next Dn
    End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Target.Column = 1 Then
        Rows.Hidden = False
    End If
End Sub

Mick

 

[Jockster]

Thank you Mick.

 

[MickG]

Nb:- Place the "Cancel = True " within the "If" statement , else you will loose the Right click short cut menus for the other columns.