Hi Lisa,

Try:

'============
Option Explicit

Private Sub HideEmptyCases_Click()
With Me
.Columns.Hidden = False
.Columns("Z:AB").Hidden = IsEmpty(.Range("Z5"))
.Columns("W:Y").Hidden = IsEmpty(.Range("W5"))
End With
End Sub
'<<============




---
Regards.
Norman

"Lisa" wrote in message
...
Hi
I have a spreadsheet used to order products from overseas. It takes three
columns to order one complete product. The supplier requires each product
to
be ordered separately. This requires quite a few columns set up to take
the
information.

Based on whether the product order is empty (based on product number saved
in cells (b5, e5, h5, k5, n5, q5, t5,w5, z5), I would like to hide the
three
columns pertaining to that empty product order.


I tried to create a VBA code, which works to hide one set of 3 columns if
the related cell is empty, but if I have more than one, it hides all the
columns regardless of whether there is information in the related cells or
not. Can anyone help me to get this to work? Below is a example of where
it
works for one. How do I modify it to take into account multiple ranges?

Private Sub HideEmptyCases_Click()
If Z5 = "" Then Columns("Z:AB").Hidden = True
(If I put anymore any more additional statements in here it hides more
regardless of whether the statement is true or false) e.g
If W5 = "" Then Columns("W:Y").Hidden = True

End Sub

I would really appreciate any suggestions or help.

Thanks
Lisa