increase / decrease font size based on value in cell having a formula

[noname]

Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?

 

[Jim Cone]

Works for me. I added: Set rng = Selection.Cells
Also, those values in the next column should be numeric. Better check.
--
Jim Cone
Portland, Oregon USA
http://www.contextures.com/excel-sort-addin.html
(review of excel sorting add-in)

..
..
..

"noname" <[email protected]>
wrote in message
Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?

 

[Ron Rosenfeld]

Hi,

I have a worksheet containing cells having text in Column A & in
Column B i have cells having formulae in them. column. Using VBA, i am
trying to increase / decrease font size of Column A text, based on the
formula value returned in Column B cell.

for each rr in rng
if rr.offset(0,1).hasformula then
rr.font.size=rr.offset(0,1).value
end if
next rr

right now, i am unable to get the value returned by the formula using
VBA. How to achieve this?

The snippet you post should work, depending on the rest of the code
and the contents of rr.offset(0,1).

So, what is the rest of the code?
What is the actual contents of rr.offset(0,1)?