font size change in macro

[bluepenink]

hello

i have the following code, which applies names to shapes.

Sub SetShapeReferences2()
Dim drw As Drawing
Dim i As Integer
i = 1
For Each drw In ActiveSheet.Drawings
drw.Formula = "=" & ActiveSheet.Range("N1").Offset(i, 0).Address
i = i + 1
Next drw
Range("F2") = "Map sorted by: Performance"
End Sub

due to the size of the shapes, the font isnt the greatest, so is it possible when i execute this macro for it apply size 7 size font? thxs for the help!

 

[bluepenink]

any suggestions guys?