View Full Version : Solved: Automatically change font size

07-03-2008, 01:38 AM
Hi all....

I have a range R2:R208, I want is to change the font size from 14 to 10 if the length off any cell is more than 100 characters. (Just that cell). The range R2:R208 is linked to another spreadsheet.

Thanks for all the help.

07-03-2008, 01:55 AM
Please try this:

Sub ChangeFont()
For i = 2 To 208
If Len(Range("R" & i)) > 100 Then
Range("R" & i).Font.Size = 10
End If
Next i
End Sub

07-03-2008, 02:27 AM
thanks jigar1276 not what I was looking for but this work.

thanks again. sorted.....