Stop macro unhiding at a certain row

**Margate** · 03-13-2013, 10:43 PM

Hello Eveyone,

I am trying to change the below VB code to stop unhiding rows below row 35? There are other hidden rows below row 35 that I do not want to be revealed when this macro is run. Perhaps once row 35 has been unhidden then if the macro is run again an alert box can be displayed?

Is there anyone that is able to edit the below code in order for me to achieve this:

Sub UnhideLastRow()
Dim lHiddenRws As Long
With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False
End With
End Sub

Thank you very much for any help.

**xladept** · 03-13-2013, 11:26 PM

How about:

Please Login or Register  to view this content.

**ffffloyd** · 03-13-2013, 11:53 PM

Not tested but I would think, just as a quick answer:

Please Login or Register  to view this content.

I have a bit of a problem though with the way you're setting lHiddenRows to the number of rows in the area and one more. It seems to me that if you do that and then refer to that row as a range index within the area then it is going to flag an error due to it being outside the range. Assuming you've done this though and that I am wrong, I have taken the same approach with rngArea. Using the Intersect(*) function should at least point you in the right direction.