Hi m3s3lf

Try this:


Sub HideRows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim rowCnt As Integer
Dim chkCol As Integer
Dim datRef As Date


BeginRow = 1
EndRow = ActiveSheet.UsedRange.Rows.Count ' To check all lines
chkCol = 6
datRef = Sheets("Sheet2").Range("D4")

For rowCnt = BeginRow To EndRow
If Not IsEmpty(Cells(rowCnt, chkCol)) Then
If IsDate(Cells(rowCnt, chkCol)) Then
If Cells(rowCnt, chkCol).Value datRef Then
Cells(rowCnt, chkCol).EntireRow.Hidden = True
End If
End If
End If
Next rowCnt
End Sub


HTH,


Executor



m3s3lf wrote:
Hmmm... do you happen to know of an easy way to skip blank lines (not
hide blank lines)?
Thanks again!


--
m3s3lf
------------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...o&userid=34874
View this thread: http://www.excelforum.com/showthread...hreadid=551619