在Excel中设置标题的宏仅在逐步执行时起作用，但在运行完整宏时则不起作用

Question

我已经在下面创建了宏以格式化工作表，根据用户输入框添加标题，然后将工作表导出为pdf。当我单步执行该宏时，它工作正常，但是当我运行完整的宏时，它将拾取在上一次运行中输入的标头值。有谁知道为什么会这样吗？

Private Sub pFormatPrint()
    Dim Rep As String
    Dim Period As String
    Dim Fname As String
        
    Rep = InputBox("Please input REP", "REP")                                               'Header 1
    Period = InputBox("Please input Reporting Period", "Commission Reporting Period")       'Header 2
    Fname = InputBox("Please input last day of report period as YYYY.MM.DD", "File Name")   'to be used in pdf file name
    
    Sheets("Query").Select
    
    'set header based upon variables defined from user input box
    Application.PrintCommunication = False
            With ActiveSheet.PageSetup
                .CenterHeader = _
                "&""Georgia,Bold""OJM Group, LLC" & Chr(10) & Rep & "" & "Commissions" & Chr(10) & Period
                .FitToPagesWide = 1
                .FitToPagesTall = 10
            End With
        
    'format report
     ActiveSheet.ListObjects("pia_commissions").ListColumns(5).Range.Select
     Selection.ColumnWidth = 13
        With Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlBottom
            .WrapText = True
        End With
     ActiveSheet.ListObjects("pia_commissions").ListColumns(6).Range.Select
     Selection.ColumnWidth = 13
        With Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlBottom
            .WrapText = True
        End With
     ActiveSheet.ListObjects("pia_commissions").ListColumns(7).Range.Select
     Selection.ColumnWidth = 13
        With Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlBottom
            .WrapText = True
        End With
    
     'Export report to PDF
     ActiveSheet.ListObjects("pia_commissions").Range.Select
     Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Comm " & Rep & Fname
     
    Application.PrintCommunication = True

End Sub