Sub Header_Footer()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Sheet1
ws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterHeader = HdrFtr(ws.Range("g2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightHeader = HdrFtr(ws.Range("f2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterFooter = HdrFtr(ws.Range("g3").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightFooter = HdrFtr(ws.Range("f3").Value, "Calibri,Regular", vbBlue, 18)
Application.ScreenUpdating = True
End Sub