change RightHeader text Font Size

Sir I try but not Change Right Header Text Font size change


This Original Formula

Sub Invoice_Button4_Click()

    Dim n As Long
    n = Application.InputBox("Number of printed copies.?", "Printed Copies", 1, Type:=1)
    If n <= 0 Then Exit Sub ' User canceled
    With Sheets("402 FORM").PageSetup
        .RightHeader = "Original"
        Sheets("402 FORM").PrintOut
        If n > 1 Then
            .RightHeader = "Duplicate"
            Sheets("402 FORM").PrintOut
        End If
        If n > 2 Then
            .RightHeader = "Triplicate"
            Sheets("402 FORM").PrintOut
        End If
    End With
End Sub

I change this formula

Sub Invoice_Button4_Click()

    Dim n As Long
    n = Application.InputBox("Number of printed copies.?", "Printed Copies", 1, Type:=1)
    If n <= 0 Then Exit Sub ' User canceled
    With Sheets("402 FORM").PageSetup
        .RightHeader = "Original"
        .Font = Arial
        .Font size = 15
        .Font Color = Bold
        Sheets("402 FORM").PrintOut
        If n > 1 Then
            .RightHeader = "Duplicate"
            .Font = Arial
        .Font size = 15
        .Font Color = Bold
            Sheets("402 FORM").PrintOut
        End If
        If n > 2 Then
            .RightHeader = "Triplicate"
            .Font = Arial
        .Font size = 15
        .Font Color = Bold
            Sheets("402 FORM").PrintOut
        End If
    End With
End Sub

Admin Note: Please use code tags as per rule 3.