I have a time sheet that has a date in Row 1 that is a merged heading of ten
columns. I would like to be able to hide the entire section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns that compose
that section A through K. L through V would be another merged column
heading of 4/15/2006.

Try

Range("A1").MergeArea.EntireColumn.Hidden = True

Change A1 to the appropriate cell.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Stuart Peters" wrote in
message
...
I have a time sheet that has a date in Row 1 that is a merged
heading of ten
columns. I would like to be able to hide the entire
section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns
that compose
that section A through K. L through V would be another
merged column
heading of 4/15/2006.

That helps with the direct question, how do I look at that entire row of
dates and only hide the date I specify? Maybe this should be separate post.

Thanks to you, I know how to hide it, but How do I find it?

"Chip Pearson" wrote:

Try

Range("A1").MergeArea.EntireColumn.Hidden = True

Change A1 to the appropriate cell.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Stuart Peters" wrote in
message
...
I have a time sheet that has a date in Row 1 that is a merged
heading of ten
columns. I would like to be able to hide the entire
section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns
that compose
that section A through K. L through V would be another
merged column
heading of 4/15/2006.

Dim cell As Range
Set cell = Cells.Find(DateSerial(2006, 4, 8))
cell.MergeArea.EntireColumn.Hidden = True


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stuart Peters" wrote in message
...
That helps with the direct question, how do I look at that entire row of
dates and only hide the date I specify? Maybe this should be separate
post.

Thanks to you, I know how to hide it, but How do I find it?

"Chip Pearson" wrote:

Try

Range("A1").MergeArea.EntireColumn.Hidden = True

Change A1 to the appropriate cell.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Stuart Peters" wrote in
message
...
I have a time sheet that has a date in Row 1 that is a merged
heading of ten
columns. I would like to be able to hide the entire
section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns
that compose
that section A through K. L through V would be another
merged column
heading of 4/15/2006.

That's elegant, But I can't get it to work, Cell is set to nothing. So maybe
find isn't working.

Thanks for helping,

Stuart

Dim cell As Range
Set cell = Cells.Find(DateSerial(2006, 4, 8))
cell.MergeArea.EntireColumn.Hidden = True


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stuart Peters" wrote in message
...
That helps with the direct question, how do I look at that entire row of
dates and only hide the date I specify? Maybe this should be separate
post.

Thanks to you, I know how to hide it, but How do I find it?

"Chip Pearson" wrote:

Try

Range("A1").MergeArea.EntireColumn.Hidden = True

Change A1 to the appropriate cell.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Stuart Peters" wrote in
message
...
I have a time sheet that has a date in Row 1 that is a merged
heading of ten
columns. I would like to be able to hide the entire
section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns
that compose
that section A through K. L through V would be another
merged column
heading of 4/15/2006.

That's right, that is what it is. The code should test for it

Dim cell As Range
Set cell = Cells.Find(DateSerial(2006, 4, 8))
If Not cell Is Nothing Then
cell.MergeArea.EntireColumn.Hidden = True
End If

It's not testing another sheet is it?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stuart Peters" wrote in message
...
That's elegant, But I can't get it to work, Cell is set to nothing. So
maybe
find isn't working.

Thanks for helping,

Stuart

Dim cell As Range
Set cell = Cells.Find(DateSerial(2006, 4, 8))
cell.MergeArea.EntireColumn.Hidden = True


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stuart Peters" wrote in
message
...
That helps with the direct question, how do I look at that entire row
of
dates and only hide the date I specify? Maybe this should be
separate
post.

Thanks to you, I know how to hide it, but How do I find it?

"Chip Pearson" wrote:

Try

Range("A1").MergeArea.EntireColumn.Hidden = True

Change A1 to the appropriate cell.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Stuart Peters" wrote in
message
...
I have a time sheet that has a date in Row 1 that is a merged
heading of ten
columns. I would like to be able to hide the entire
section(all 10 columns)
of that merged heading.

For instance:
A B C D E F G H I J K
1 4/08/2006
2 d d d d d d d d d d d

Given the date 4/08/2006, I would like to hide all the columns
that compose
that section A through K. L through V would be another
merged column
heading of 4/15/2006.