Hiding a column based on cell contents 1

[Cheech]

Hi,

I have a MACRO that clears out the data from and repopulates a months worth of dates in a time sheet spreadsheet.

I need to hide the weekend columns, row 6 of each column is populated with the day of the week.

What I would like to do is loop through all of the columns in a given range and hide as appropriate, something like:

range = x to bb
For each column in range
If ((this_column:5 = 'Sat') or (this_column:5 = 'Sun') Then
hide column
End If
Next

Can some one help?

Cheech


[Peace][Pipe]

 

[SkipVought]

Hi,

Column is a reserve word.
Range is a reserve word.

dim rng as range, r as range
set rng = Range(Cells(6, "X"), Cells(6, "BB"))
For each r in rng
If (r.value = 'Sat') or (r.value = 'Sun') Then
  r.entirecolumn.hidden = true
End If
Next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Cheech]

Thanks Skip

[Peace][Pipe]