View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jake Marx[_3_] Jake Marx[_3_] is offline
external usenet poster
 
Posts: 860
Default Hide/Unhide Help

Hi Danno,

If you have a subroutine that will hide/unhide as needed:

Public Sub ToggleRows(rbHide As Boolean)
Dim rng As Range

Set rng = Sheet1.UsedRange.Columns(2).SpecialCells( _
xlCellTypeBlanks)

If Not rng Is Nothing Then
rng.EntireRow.Hidden = rbHide
End If
End Sub

You can call this with a True argument when hiding the rows with blank col
B. You can call this subroutine with a False argument from the
Workbook_Open event subroutine (double-click ThisWorkbook icon and paste in
the following code):

Private Sub Workbook_Open()
ToggleRows False
End Sub

--
Regards,

Jake Marx
www.longhead.com


[please keep replies in the newsgroup - email address unmonitored]


Danno wrote:
I have been through the search on numerious occasions and can't find
an answer. Here is my problem.

I have a sheet for my work load. I want to hide rows that have a blank
cell in colum B when a key is pressed. However, I want the rows to
unhide when the workbook is opened.

Any help would be greatly appreciated.

Thanks,
Danno