Hi again,

Am Fri, 10 Mar 2017 17:01:41 +0100 schrieb Claus Busch:

Next
.Range("K2").Formula = "=J3*24"
.Rows(2).Font.Size = 10

if you also want to change the font type try this at the end of the
code:

Next
.Range("K2").Formula = "=J3*24"
With .Rows(2).Font
.Size = 10
.Name = "Arial"
End With
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016