Redefine UsedRange property of Worksheet Object

  • Thread starter Thread starter ExcelMonkey
  • Start date Start date
E

ExcelMonkey

I am using the following code to loop through the UsedRange of worksheet:

For Each Cell In sh.UsedRange

I want to replace the .UsedRange property of the worksheet with a new range
via string variable called WorkingRange which has a new range address i it.
How do I do that?

Thanks

EM
 
Hi
Say WorkingRange is the address as a string

For Each Cell In sh.Range(WorkingRange).cells

Next
 
If the new range address is a string, something like this might work for
you:
For each Cell in Range(WorkingRange)
HTH Otto
 
Dim a variable of Type Range and Set the range you want to it before
executing the loop.

Dim Rng As Range
Dim Cel As Range
Set Rng = sh.UsedRange
For Each Cel In Rng
....
Next
.....
.....
Set Rng = Range(WorkingRange)
For Each Cel In Rng
...
Next

By the way, by "string variable called WorkingRange", I am assuming you
meant an assignment that looks like this... "A1:E5" (so that it would be
referenced as shown in my code by using it as the argument to the Range
command.

Rick
 
Back
Top