Different font size, same cell, changing text only, vba

[DPARDY]

Thank you for your time,

In cell A1 is pasted values form concat of cells A2 & A3. Both A2 & A3 text will be changing all the time, what I need to do is only decrease the font size of the text that comes from A3.

Thanks Again.

 

[Micron]

You should post examples of before and after when you have a question like this. I could interpret that the text to be changed is in A3, or it is in A1. Still, what you ask might be rather difficult. Once the font has been decreased, how would anyone stop it from decreasing again if there is another paste action. That tells me you also need to explain what you are doing.

 

[DPARDY]

 

[Micron]

Not sure what will work because A1 is the result of a formula and is not a cell value. Will have to play around.
FWIW, I had it working when A1 was not a formula but not now. Can only imagine that is the problem.

 

[DPARDY]

Not sure what will work because A1 is the result of a formula and is not a cell value. Will have to play around.
FWIW, I had it working when A1 was not a formula but not now. Can only imagine that is the problem.

A5 is just text now, that's the cell I need to change the font size.

 

[Micron]

then perhaps this will work for you

Sub testFontSize()
Dim intSize As Integer

intSize = Range("A1").Characters(1, Len(Range("A2"))).Font.Size
Range("A1").Characters(Len(Range("A2")) + 1).Font.Size = intSize - 2


End Sub

 

[DPARDY]

It is not changing the font size in cell A5.

 

[Micron]

I reviewed your posts again and don't see where you said you wanted font size to change in A5. So change A1 to A5?
Range("A5").Characters(Len(Range("A2")) + 1).Font.Size = intSize - 2

 

[DPARDY]

I reviewed your posts again and don't see where you said you wanted font size to change in A5. So change A1 to A5?
Range("A5").Characters(Len(Range("A2")) + 1).Font.Size = intSize - 2

PERFECT, Thank you so much.

 

[Micron]

Glad it worked. Thanks for the recognition.