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 = 100
chkCol = 6
datRef = Sheets("Sheet2").Range("D4")

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


HTH,

Executor


m3s3lf wrote:
I want to go through rows 5-500 on Sheet1 and hide every row where the
date in column F is greater than the date in cell D4 on Sheet2. Can
somebody please help me! I've been working on this for days!

I was trying to modify this macro, but I'll take whatever works!

Code:
--------------------

Sub HideRows()
BeginRow = 1
EndRow = 100
ChkCol = 3

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 5 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub

--------------------

Thank You!


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