Leo,

While your code does output the current range in a message box, I'd like to
instead use a For Each statement on that range to identify cells that are
bolded, along the lines of this:

Dim cell As Range, rng As Range
Set rng = Selection

For Each cell In rng
If cell.Font.Bold = True.... etc.

My goal is to identify all the cells in a selected range that are bold and
use their addresses to build a formula farther down my spreadsheet. I think
what's hanging me up is the syntax of the For Each line. I hope I'm
clarifying this better. Thanks for your help.
--
Steve C


"Leo Heuser" wrote:

"Steve C" skrev i en meddelelse
...
I would like to set a variable equal to whatever the currently selected
range
is on my spreadsheet. I have started my procedure as follows (assuming
that
a given range of cells has already been selected on my spreadsheet):

Dim rng as Range
Set rng = Active range of cells currently selected

What is the code I need for describing the active range? Thanks.
--
Steve C

Hi Steve

Set rng = Selection
MsgBox rng.Address

will do the job.


--
Best regards
Leo Heuser

Followup to newsgroup only please.