C'è qualche imprecisione nel tuo codice, se vuoi inserire l'intestazione solo nel foglio attivo puoi usare un codice del genere
Codice:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Preventivi").PageSetup.RightFooter = "&""Century Gothic,Normale"" &14" & [M6] & " - " & [P14]
End Sub
questo imposta il carattere Century con corpo 14
Il ciclo For Each usato qualche post sopra era stato usato per inserire le intestazioni in tutti i fogli della cartella