Running v Stepping results

I wrote the following sub to place a standard footer in my excel sheets. When I run the sub I do not get what I want. Yet, if I step thru the sub I get exactly what I want. Any idea why I get a different result from running a sub versus stepping thru it?

Sub StandardFooter()
'
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftFooter = "&a" & Chr(10) & "&f"
        .CenterFooter = "&P" & " of " & "&N"
        .RightFooter = "&T" & Chr(10) & "&D"
    End With
    Application.PrintCommunication = True
End Sub

Thanks,