Hi,

Is there a more efficient was of writiing the following code:

Application.Goto Reference:="ICT1"
Selection.ClearContents

Application.Goto Reference:="ICT2"
Selection.ClearContents

Application.Goto Reference:="ICT3"
Selection.ClearContents

Application.Goto Reference:="ICT4"
Selection.ClearContents

ICT1 etc. are simply non-contiguous named ranges.

Thanks in Advance and all the best as always,

Matt

On Thu, 22 Jan 2009 16:27:01 -0800, veryeavy
wrote:

Hi,

Is there a more efficient was of writiing the following code:

Application.Goto Reference:="ICT1"
Selection.ClearContents

Application.Goto Reference:="ICT2"
Selection.ClearContents

Application.Goto Reference:="ICT3"
Selection.ClearContents

Application.Goto Reference:="ICT4"
Selection.ClearContents

ICT1 etc. are simply non-contiguous named ranges.

Thanks in Advance and all the best as always,

Matt

Simpler would be:

==================
Range("ICT1,ICT2,ICT3,ICT4").ClearContents
=================

However, you should be aware that these Names will not be legal in Excel 2007
in native mode, as ICT1, etc, are all valid cell references.
--ron

Many thanks, Ron.

Your observations re Range Names was especially useful.

So do I love my employer enough to make my code forward compatible?

That will require some pondering)

Cheers,

Matt

"Ron Rosenfeld" wrote:

On Thu, 22 Jan 2009 16:27:01 -0800, veryeavy
wrote:

Hi,

Is there a more efficient was of writiing the following code:

Application.Goto Reference:="ICT1"
Selection.ClearContents

Application.Goto Reference:="ICT2"
Selection.ClearContents

Application.Goto Reference:="ICT3"
Selection.ClearContents

Application.Goto Reference:="ICT4"
Selection.ClearContents

ICT1 etc. are simply non-contiguous named ranges.

Thanks in Advance and all the best as always,

Matt

Simpler would be:

==================
Range("ICT1,ICT2,ICT3,ICT4").ClearContents
=================

However, you should be aware that these Names will not be legal in Excel 2007
in native mode, as ICT1, etc, are all valid cell references.
--ron

On Thu, 22 Jan 2009 17:32:05 -0800, veryeavy
wrote:

Many thanks, Ron.

Your observations re Range Names was especially useful.

So do I love my employer enough to make my code forward compatible?

That will require some pondering)

Cheers,

Matt

Glad to help.

Good luck with your pondering :-)
--ron

On Jan 22, 8:32*pm, veryeavy
wrote:
Many thanks, Ron.

Your observations re Range Names was especially useful.

So do I love my employer enough to make my code forward compatible?

That will require some pondering)

Cheers,

Matt

"Ron Rosenfeld" wrote:
On Thu, 22 Jan 2009 16:27:01 -0800, veryeavy
wrote:

Hi,

Is there a more efficient was of writiing the following code:

Application.Goto Reference:="ICT1"
* *Selection.ClearContents

* *Application.Goto Reference:="ICT2"
* *Selection.ClearContents

* *Application.Goto Reference:="ICT3"
* *Selection.ClearContents

* *Application.Goto Reference:="ICT4"
* *Selection.ClearContents

ICT1 etc. are simply non-contiguous named ranges.

Thanks in Advance and all the best as always,

Matt

Simpler would be:

==================
Range("ICT1,ICT2,ICT3,ICT4").ClearContents
=================

However, you should be aware that these Names will not be legal in Excel 2007
in native mode, as ICT1, etc, are all valid cell references.
--ron

Dim x as Integer

For x=1 to 4
Range("ICT"&x).ClearContents
Next x