Changing Font Size

[Aron19]

I need help on writing the code to make the words in Calibri font size 16 and also wondering if there is a way to keep my borders once the calendar date populates on the spreadsheet

Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
calender1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If

End Sub
Private Sub Calendar1_Click()


ActiveCell.Value = Calendar1.Value
ActiveCell.HorizontalAlignment = xlCenter
Unload Me

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub