VB to change the Font Formatting

Sub FontFormat()

With ActiveCell.Font

.Name = "Algerian" ‘ Change as per required example Arial, Calibri, Tahoma

.Size = 11 ‘ Change up to numeric 409 generally depends on screen resolution

.Bold = True ‘ Either true or False

End With

End Sub