For each c in selection
c.value = "Don"
Next c

"Don Cardoza" wrote in message
...
to bother everyone with a very simple question, but I've been trying for
without success

I know how to refer to a specific range like this:

For Each c In ActiveSheet.Range("d2:e14").Cells
c.Value = "Don"
Next

I can refer to a currentRegion too

For Each c In ActiveCell.CurrentRegion.Cells
c.Value = "Don"
Next

What I can't seem to do is apply this to a range of cells selected by the
user

I've tried different variations of ActiveWindow.RangeSelection.Address but
have failed

something like...
set myrange=ActiveWindow.RangeSelection.Address
For Each c In ActiveSheet.Range(myrange).Cells
c.Value = "Don"
Next

My sincerest apology to bother everyone for what should seem like a
trivial
task

The object you are looking for is simply Selection eg:

For Each c In Selection
c.Value = "Don"
Next

but you need to bear in mind that Selection may not refer to a range
(the user may have selected a chart for example) so you probably want:

If TypeName(Selection) = "Range" Then
For Each c In Selection
c.Value = "Don"
Next
End If

Hope this helps
Rowan

Don Cardoza wrote:
to bother everyone with a very simple question, but I've been trying for
without success

I know how to refer to a specific range like this:

For Each c In ActiveSheet.Range("d2:e14").Cells
c.Value = "Don"
Next

I can refer to a currentRegion too

For Each c In ActiveCell.CurrentRegion.Cells
c.Value = "Don"
Next

What I can't seem to do is apply this to a range of cells selected by the
user

I've tried different variations of ActiveWindow.RangeSelection.Address but
have failed

something like...
set myrange=ActiveWindow.RangeSelection.Address
For Each c In ActiveSheet.Range(myrange).Cells
c.Value = "Don"
Next

My sincerest apology to bother everyone for what should seem like a trivial
task

try this:

For each c in Selection
<whatever you want to do
Next


The user can then select the items he/she wants to run this for an
click start etc.

cheers

--
lithium8
-----------------------------------------------------------------------
lithium81's Profile: http://www.excelforum.com/member.php...fo&userid=2946
View this thread: http://www.excelforum.com/showthread.php?threadid=49170

to bother everyone with a very simple question, but I've been trying for
without success

I know how to refer to a specific range like this:

For Each c In ActiveSheet.Range("d2:e14").Cells
c.Value = "Don"
Next

I can refer to a currentRegion too

For Each c In ActiveCell.CurrentRegion.Cells
c.Value = "Don"
Next

What I can't seem to do is apply this to a range of cells selected by the
user

I've tried different variations of ActiveWindow.RangeSelection.Address but
have failed

something like...
set myrange=ActiveWindow.RangeSelection.Address
For Each c In ActiveSheet.Range(myrange).Cells
c.Value = "Don"
Next

My sincerest apology to bother everyone for what should seem like a trivial
task

Another option:
'// Make sure a Range is selected...
If TypeName(Selection) = "Range" Then Selection = "Don"

HTH. :)
--
Dana DeLouis
Win XP & Office 2003


"Don Cardoza" wrote in message
...
to bother everyone with a very simple question, but I've been trying for
without success

I know how to refer to a specific range like this:

For Each c In ActiveSheet.Range("d2:e14").Cells
c.Value = "Don"
Next

I can refer to a currentRegion too

For Each c In ActiveCell.CurrentRegion.Cells
c.Value = "Don"
Next

What I can't seem to do is apply this to a range of cells selected by the
user

I've tried different variations of ActiveWindow.RangeSelection.Address but
have failed

something like...
set myrange=ActiveWindow.RangeSelection.Address
For Each c In ActiveSheet.Range(myrange).Cells
c.Value = "Don"
Next

My sincerest apology to bother everyone for what should seem like a
trivial
task

And another:
ActiveWindow.RangeSelection.Value = "DaDooRonRon"

HTH. Best wishes Harald

"Don Cardoza" skrev i melding
...
to bother everyone with a very simple question, but I've been trying for
without success

I know how to refer to a specific range like this:

For Each c In ActiveSheet.Range("d2:e14").Cells
c.Value = "Don"
Next

I can refer to a currentRegion too

For Each c In ActiveCell.CurrentRegion.Cells
c.Value = "Don"
Next

What I can't seem to do is apply this to a range of cells selected by the
user

I've tried different variations of ActiveWindow.RangeSelection.Address but
have failed

something like...
set myrange=ActiveWindow.RangeSelection.Address
For Each c In ActiveSheet.Range(myrange).Cells
c.Value = "Don"
Next

My sincerest apology to bother everyone for what should seem like a
trivial
task