I am trying to use this code to hide a row. Am I using a property that
doesn't work? I do not get any error messages... I just do not get the
desired results.

If MyNewArchHide = True Then
For i = 1 To rng.Count
If cName(i) = "Transaction Date" Then
Set rng2 = .Range(.Cells(1, i), .Cells(2 ^ 16,
i).End(xlUp))
For j = rng2.Count To 2 Step -1
If .Cells(j, i).Value LowYear _
And .Cells(j, StatusColumn).Value = "Archive" Then
Rows(j).Select
HideSelection = True
End If
Next j
End If
Next i
End If

Try:
Selection.EntireColumn.Hidden = True

"Mark" wrote:

I am trying to use this code to hide a row. Am I using a property that
doesn't work? I do not get any error messages... I just do not get the
desired results.

If MyNewArchHide = True Then
For i = 1 To rng.Count
If cName(i) = "Transaction Date" Then
Set rng2 = .Range(.Cells(1, i), .Cells(2 ^ 16,
i).End(xlUp))
For j = rng2.Count To 2 Step -1
If .Cells(j, i).Value LowYear _
And .Cells(j, StatusColumn).Value = "Archive" Then
Rows(j).Select
HideSelection = True
End If
Next j
End If
Next i
End If

selection.entirerow.hidden = true
??

or just
rows(j).hidden = true

(and get rid of the .select line)

JNW wrote:

Try:
Selection.EntireColumn.Hidden = True

"Mark" wrote:

I am trying to use this code to hide a row. Am I using a property that
doesn't work? I do not get any error messages... I just do not get the
desired results.

If MyNewArchHide = True Then
For i = 1 To rng.Count
If cName(i) = "Transaction Date" Then
Set rng2 = .Range(.Cells(1, i), .Cells(2 ^ 16,
i).End(xlUp))
For j = rng2.Count To 2 Step -1
If .Cells(j, i).Value LowYear _
And .Cells(j, StatusColumn).Value = "Archive" Then
Rows(j).Select
HideSelection = True
End If
Next j
End If
Next i
End If

--

Dave Peterson