Simple VBA hide columns

[Dan.]

Hi,
Totally new to VBA. I’ve got a worksheet called Summary. In cell ranges D1:F1 and H1:J1 there is either a 1 or 0.
I want to be able to hide all columns in the two ranges that have a 0 in these cells. Could someone suggest the code please.
Thanks
Dan

 

[AlphaFrog]

[COLOR=darkblue]Sub[/COLOR] Hide_Zero_Columns()
    [COLOR=darkblue]Dim[/COLOR] cell [COLOR=darkblue]As[/COLOR] Range
    Application.ScreenUpdating = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] cell [COLOR=darkblue]In[/COLOR] Sheets("Summary").Range("D1:F1,H1:J1")
        cell.EntireColumn.Hidden = cell.Value = 0
    [COLOR=darkblue]Next[/COLOR] cell
    Application.ScreenUpdating = [COLOR=darkblue]True[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[Dan.]

Works great, thanks very much!
Dan