Change font size based on the value in another cell

[erikd]

Hi,

So, I have a worksheet with two columns I have to work with. In the first column is a word, and in the second column is a number. I have to change the font size of the word to the number in the other column. I'm not finding anything close enough to edit to suit my needs. Any help you can provide would be greatly appreciated. There are a lot of words!

Thanks

 

[Michael M]

Hi and welcome to the Board
Try

Sub fontchange()
For Each c In Range("A1:A100")'change to suit
    c.Font.Size = c.Offset(, 1).Value 'this is one column to the right, -1 for 1 column to the left
Next c
End Sub

[/code]

 

[erikd]

That worked beautifully. Thank you so much. It does stall if there's a 0 in the cell, but for my purposes I had to set that to size 1 anyway.

Hi and welcome to the Board
Try

Sub fontchange()
For Each c In Range("A1:A100")'change to suit
    c.Font.Size = c.Offset(, 1).Value 'this is one column to the right, -1 for 1 column to the left
Next c
End Sub

[/code]

 

[Michael M]

Glad it worked ...thanks for the feedback, you colud change to

Sub fontchange()
For Each c In Range("A1:A100")'change to suit
on error resume next    
c.Font.Size = c.Offset(, 1).Value 'this is one column to the right, -1 for 1 column to the left
Next c
End Sub