Solved: Automatically change font size

[CCkfm2000]

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.

[jigar1276]

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

[CCkfm2000]

thanks jigar1276 not what I was looking for but this work.

thanks again. sorted.....