Have you tried Auto Filter in the Data menu?
Rgds,
ScottO

"Al" wrote in message
...
| Great...I have a similar objective, and I wonder if you could
advise the
| appropriate solution? I'd like to be able to hide rows or columns
if a
| specific cell has no data.
|
| My spreadsheet is a list of names and hours and charges, but if
name X has
| zero hours - i.e. hours X = 0 - then I do not need the row,
otherwise my
| spreadsheet will have so many unused rows, and so want to hide it.
To
| complicate matters, I want the rows that are the various titles to
remain
| unhidden, so I see something that only conisders the data rows and
hides them
| if the hours = zero.
|
| Allan
| "swatsp0p" wrote:
|
| For some reason, my post via Joseph Rubin's newsgroup did not
make it to here.
|
| Assuming your worksheet is nameed "Sheet1" (edit as needed),
create your
| button and add this code to your button: verify the columns
listed match your
| desired ones to hide!
|
| -----------------------
|
| Sub hidecolsrow4()
| ' hidecolsrow4 Macro
| If Worksheets("Sheet1").Columns("J").Hidden = False Then
| Range("J:J,L:L,N:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB,A D:AD,AF
:AF,AH:AH").Select
| Selection.EntireColumn.Hidden = True
| Range("A4").Activate
| Selection.EntireRow.Hidden = True
| ' unhidecolsrow4 Macro
| Else
| Rows("3:5").Select
| Selection.EntireRow.Hidden = False
| Columns("I:AI").Select
| Selection.EntireColumn.Hidden = False
| End If
| Range("A1").Select
| End Sub
|
| ----------------------------
|
| If columns are hidden, this will Unhide them, if not hidden, it
will Hide
| them.
|
| Good Luck
| __________________
| Bruce
| The older I get, the better I used to be.
| Minneapolis, MN USA
|
|
|